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AUTHOR’S 
INTRODUCTION 


The Amstrad CPC 464 (‘Arnold’ to its users) is a fantastic 
computer that has taken a major place in the computer market 
alongside the Spectrum, the BBC Micro and the Commodore 
64. Its powerful BASIC has excellent sound and graphic 
features, making it a Superb machine for games programmers. 

In this book, | have tried to include as wide a range of games 
for the Amstrad as possible. From the heady heights of play- 
ing chess (of a sort!) to the ‘Zap ‘em up’ arcade games, the 
emphasis has been on making the games interesting and fun. 
| have tried to include programs that you will not quickly tire 
of. Anumber of the games are sufficiently interesting to keep 
you amused for a long, long while. 

| think now is a good time to mention a couple of things 
concerning the book’s layout and style. Before typing in a pro- 
gram from this book, reset the machine. This can be done 
by holding down the CTRL, the ESC and the Shift keys 
simultaneously. This sets the machine back to its original for- 
mat, that of MODE 1, blue background and yellow foreground. 
This will avoid any confusion between graphic colours and 
sizes. 

Secondly, | prefer not to put instructions into programs. It 
seems a waste of programming space when you can tell the 
reader in the preceding paragraph how to play the game. It 
is therefore advisable to read any information on a particular 
program before you play it. 

Finally, | would like to say that these programs are not only 
for you to enjoy but also to learn from. If you have never writ- 
ten your own games, following how the shorter programs work 
will tell you a lot. For the intermediate games programmer, 
there are a number of useful hints and tips to pick up along 
the way. 


Clive Gifford, 
London, October, 1984 
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OUT IN 
THE ARCADE 


Arcade games are probably the most popular form of 
computer games entertainment. In fact, many people when 
they talk about a computer game, think about arcade games 
and nothing else. 

The main difficulty with programming playable arcade 
games is speed. They must be fast, while being exciting. A 
number of objects must be moving on the screen and the 
programmer has to be able to coordinate the whole game, 
while keeping enough speed and variability in its actions to 
make it worth playing again and again. 

The games in this section are all very playable. | have 
avoided slow versions of well-known games. | wrote several 
others but they were not fast enough to be enjoyable. Several 
require joystick control but only one joystick, so you don’t have 
to buy the special dual joystick adaptor just to play them. 

Type them in, play them and Happy Zapping! 
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DANGER UXB 


As a bomb disposal expert, you must try to disarm all the 
bombs in the area on the screen by scanning over them. You 
only have a minute and a half to do so, and leave the area 
before it is blown sky high. If you find that you get stuck in 
a corner, you can use your mall charges to break through. 
But be careful. If you are near a bomb when you do this, the 
effect could be devastating. 

The keys you use are: 


| for West Q for North 
P for East Z for South 
Spacebar for Detonator 


The set of buildings generated by the computer is different 
every time. The computer gives you a warning when there 
are only 15 seconds left. 


12 RESO OOOO 
EMS XX X*XDANGER Ul 4. Bo. xa eK 


2 RE 


ZO & 


m 


WSS SSS SSSSSOSESESESLOERS © Ot 


Sa INK 0,9 
6@ BORDER $ 
7@ DIM Slaa, 24> 


2e CLE 
9@ LOCATE i2,isFPSINT "DANGER....U.%. 


PC PRINT CHAS (S026 Yo }¢ 


c 


oc 


S(S(T 


m3 


tJ 
Se 


PRINT CHS 

NEXT T 

LOCATE 1,24 

FOR T=1 TO 40 
S(T, 243=143 
PRINT CHS#(S(T.2 
NEXT T 

K=INT (RND*Z8) +1 
LOCATE #724 
PRINT 
S (Kk, 24) =22 
PEN 


Fink 


x 
z 


T-4 


TR 


+> 
oat 
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WYyys 
tera 


“ 
ae 


XSINT CRNDKES3 +23 Y=I1NT CORNDA2O) +2 


~eee 


[4 . 
Stx,¥? 


LOCATE X,Y 
FEN i 
PRINT CHRE (SCX. ¥> 


Ys 
ts 
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OF SCREEN 


DSAWEAKK 


ALO S(X,Y) =2z 
47% FEN Z 

486 NEXT T 

490 PEN 7 

See Vo=o 

Eig REMK*K*END 

S20 Aa2:B=2 

Sze sC=@ 

S40 D=2 

SS@ DVINT (TIME/Zae 


E72 AS=INKEVE 
eee IF Ags"s" 


="gQ" 


=3-1 
40 IF ag=uz" 
=Ott:IF SC=it 
” 

642 IF Aga"r" 


ACTICNAE EHX 


THEM: SPEED he terest 
THEN SPEED KEY 1,1 

YO. LO THEN VC=8s SOUND 
é SQINT Ce 
AND Gia, B-1.e25 THEN B 
AND StA, +i 25 THEN B 


AND 


AND 


B=24% THEN GQTO 189 


S58 SCA+1. 2) 425 THEN 
=At+i 

6é6@ IF At=" " AND Dre THEN GCSUR 744 
79 IF genes THEN SOUND 2, 240:5¢ 
A.) =222SC=SC+2 

63@ LOCATE 4.8 

69@ PRINT CHRE (248); 


TE=INT (TI 
iF TES9e 
iP Thess THEN 


"| 
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ME /Zeac? -DT 


THEN 948 


INK @.9 


rae 


> 
v . 


7S@ IF StA+1,B=25 OR StA-t, 
S(A, B+1=3F OR StA, 8-1) =73 

9 948 

768 S(A+L,B)=22 

77@ GStA-1,8)=22 

7328 SCA. BALD SID 

FOR S(A,B-1)=22 

ene LOCATE Ati, B2:SCINT " "; 
Sia LOCATE A-i,8:FRINT " "5 
B2@ LOCATE AS+i PAINT " "5 

220 LOMATE A,B-Lt:2SSInT " "5 

c4@ FEN 2 

Be DT=DT- 

260 IF 2322 THEN SAL R+i 2 =14 
A,S+LsFPRINT CHRE (142) 5 

R7@ TF A=2 THEN S(A-1,8)= 
A-1, E:PRINT CHRE (145); 

28@ IF B=2 THEN S(A,B-1)=142 
A,B-1:sFRINT CHRE (142); 

898 IF A=28 THEN S(A+i.,8)=142: 
At+1, RB: PRINT CHRE (147): 

9e@ FEN 2 

P1@ SOUND 1, 280@,40 

92e@ R=D-1 

920 RETURN 

[d@ REMKX*XXLOSE....5ANG!' IKK 


EMS**X* DYNAMITE THROUGHEXKX 


LOCATE 


AZ: LOCATE 


LOCATE 
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95@ FOR T=1 Th 2 
246 SQUND + 
97@ IMK @,9 
220% SOUND 1.250 

298 INK 2,2 

1@@@ NEXT 7 

191% CLS 

102@ PEN = 

1@2@ LOCATE to, 1@ 

1940 SRINT "TICK. TICK. BEGOOMM rE 
1{@5@ SOUND 1,4000,14@.15 

106@ SPEED KEY 1@.1 


1@78@ END 


12920 REMEK*KXKWINKEKKEKEK 
1¢90 SFEED KEY 14,2 


210@ FOR T=2e@ TN S@ STEF -S 

2111@ SQUND 1,7,2@:SOUND 2,7,.26 

112¢@ NEXT T 

1126 FOR T=1 TO 2S:FRInTsNEXT 7 
21146 LOCATE 15,1@:PRINT "WELD BONE" 


1250 LSCATE 22,242 PRINT "TIME Ss hehive 
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QUACK ATTACK 


Time to pot the poultry in this action game by Peter Shaw. 
A flight of ducks is overhead. Your marksman must try to shoot 
down the whole flight in as few shots as possible. 

Move your marksman to the left with the ‘Z’ key, the right 
with the ‘M’ key and fire with the ‘A’ key. 


1@ REMAx*KQUACK ATTACKxxxx 
2¢ GQSUE 92a 
Z@ HS=@ 


40 


7@ SC=@ 


2M RANDOMIZE TIME 


90 Z=1 
19@ At="" ab ab ab ab ab 
ab " 


11@ 8s="ced co cd cd cd ed ed 
ed a 

12@ REM*K*****DRAW |ANDSCAPOKXKKK 
12@ LOCATE 1.,2@:FEN 1:GOSUS 16 7e 


14@ LOCATE 1,19:FEN 1:GOSUB 1@2e 


$ (142) +CHRE (142) 
17 LOCATE Z@,19: PRINT CURE (142)+CHR 
€ (142) +CHRE (143) +CHRS (142) +CHRS (142) 


18@ PEN 1 
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ae en 


TE Z4,22:FPRINT CHRE (142) 


240 
250 
260 
270 
22e 
298 


Z2O@ 


21a 


LOCATE 1,22: PRINT CHRE (242):LOCA 
i= 


24,2t% 


CHRS (142) 


LOCATE 1,22:FSINT CHRS(142)52:P5N 


PRINT" 


QUACK ATTACK 


(164)2". 1984" 


PEN 1 


LOCATE 24, 22:PRINT CHRE (142? 


LOCATE 1,22:FRINT CHRe(142)>:LOCA 


THEN GEOSUR 488 
AND A<C2Q THEN A=A+2 
AND ASS THEN A=A-2 


PEN 1:GQSUP 1@20 
OT=INT (TIME/Za@) 
FEN 2 
LOCATE 1, 2:PRINT 
PON ¢ 
LOCATE 1.4:PRIN1 
Fao 
IF Ag=" 
“ THEN F=F+1 

IF B¢=" 

“ THEN F=F+1 
IF F=2 THEN GOTO 
ENV 1,70.4.6 
SOUND 1.20@,1@.:, 
Rt=INKEYS 
TF C#="qQ" 
IF C#="M" 
IF C#="z" 
LOCATE A-Zz.17:F5N 


PRINT “oo 
PEN 1 


LSs=INKEYS 


mm 
4 


a 
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TF Ce="A" THEN COSI 4Re 


AS =RIGHTS (AS, FIP+MIDS (AS, 


bo 


= 


Cc 
— 
SBUIND 1, 2@0@,1@,1,1.1.5 
{. 


u 


PEN 2 

LOCATE t,2:PRINT AE 

FEN 1 

LOCATE 1,4:PRINT &¢ 

IF C#="M" AND ACLS THEN A=A+2 
TF C#="Z" AND ASS THEN A=A-2 
LOCATE A-2.i7:PEN 3 

PRINT " eB " 


TF Be, Late ah BE 
SOUND 1.15@.7@,15:GOSUP 7ae 
TF B=2 AND MIDE‘AS.C-1,23¢0>" " T 
SOUND 1.126, 70,25:GQSUB 74a 


LOCATE C,B:PRINT " 
NEXT B 
RETURN 
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10 


Ri@ RETURN 


R2e TK=INT (TIME /Z0@) -— 
226 SCHINTCA7E*Ses (19 
84@ IF SC ?HE THEN HS= 
BS@ “NCATE 1,1:FPRINT 
"SC 

R6@ LOCATE 1, 2:sFPRINT 
Mes 

are LOCATE 1,22PRINT 
SECONDS." 


910 CLS 

92@ GTA 4e 

92@ REM*xxDEPINE «x 
94 SYMBOL AFTER 95 
95@ SYMBCL 97.@.2.7.1 
96@ SYMEOL 98.112.2 
9253.96 

970 SYMBOL 


@ 


st = Lon ber 
LL SMU4RE (2zQ) 


—Ge 


DT 


"“HEST RATING 


"VOU TOOK" :TR; 


1,14@: SOUND 


9 3e 7 969 
ee eg ee 


99,240, 126, 21,65.127, 8.2 
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SYMBCL 1@0,@,0,. 24,154, 255, 229.0, 


Se ee | 


RETURN 
FOR T=1 TQ Z24:PRINT CHRE (142) 
T: RETURN 
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DIAMOND THIEF 


Fancy seeing you in a situation such as this! Rushing your 
way through Tiffany’s of New York, stealing diamonds. | 
suppose life is full of surprises. 

In your mad dash out of the store before the alarm rings 
(you have two minutes), you tend to miss many of the stones 
that you make a grab for. You are rushing to the nearest exit. 
You cannot move backwards, only side to side. You do this 
by tapping the ‘Z’ and ‘M’ keys. You’ll know when you’ve got 
a diamond by the tone from your Amstrad. 

1Q REMEKKKXKKKEKEKEEKEKKKKE 

20 REM***KXDIAMOND THIEF KX** 

TQ REMAKKXKXKAKEKEKRAKKKEKKES 

40 SC=0 

=@ X=19 

6@ XX=10 

70 INK @,1 

B® INK 1,24 

90 INK 3,26 

19@ BORDER 1 

110 CLS 

120 DT=TIME/2@0 

17@ LOCATE XX-1,13:FRINT " i 
14@ LOCATE XX-1,12:PRINT " " 
15@ LOCATE XX-1,11=2PRINT " " 
16@ LOCATE XX-1,1@:PRINT " " 
17@ LOCATE X-1,14:PRINT " “;CHRS(249 


186 XX=X 
19@ MS=INKEYS 
200 IF M$="Z" AND X>2 THEN X=X-1 


21@ 


wa 
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IF M$="M" AND X<28B THEN X=X+1 
IF TEST ((X*16)-8,164)=2 THEN SC= 


SC+17:SOUND 1,460,5 


258 
248 


LOCATE 1,25 
IF INTCTIME/30@)—-DT>12@ THEN GOT 


0 228 


258 
26@ 
279 
73 

2Be@ 
298 
308 
314 
320 
EIQ 
342 
350 
360 
37@ 
3B@ 
39 
400 
41a 
420 


FOR C=1 TO INT (RND*7) 
PEN 2 
PRINT TABCINT (RND&27) +1) 5 CHRS (22 


FEN 1 

NEXT C 

PRINT 

GOTO 1z@ 

REM¥% K4¥EXPLODEXE KEK 
FOR T=1 TO 20 

INK @,T 

SOUND 1,150,15 

SOUND 1,250.15 

NEXT T 

FOR T=1 TO 2@00:NEXT T 
CLS 

INK 1,2 

PEN 1 

LOCATE 6,10 

PRINT "YOU COLLECTED": SC: "CARATS 


END 
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BOMB CATCH 


What a foolhardy thing to do! But you know that it must be 
done. Some joker is throwing grenades down from a tall 
building and you must catch them before they hit the ground. 
If you don’t, they will explode killing you. 

Before you go and dice with death, | should tell you that 
you use the ‘7’ and ‘9’ keys. You will probably find the numeric 
keypad the easiest keys to use. 


10 REMA*4**K*XECME CATCHKXXE 
22 INK 1,2 


de el 


NT CRND#25)4+723Y=1 


70 LOCATE 7.24 
BO PRINT CHRE (198) 
9@ LOCATE X.Y 

1@@ PRINT CHRS (252) 

11@ LOCATE x,Y-1 

12@ PRINT " " 

12@ FOR D=1 TO S@:NEXT D 

4® IF Y>DZ AND X<2T THEN GOSuUS 228¢@: 
REM BANG!!! 

S@ IF X=T AND Y=24 THEN GOSUR 24@ 
4@ AS=INKEYS 
17@ LOCATE T.24 
18@ PRINT" 
19@ IF Ag="7" THEN T=T-1 
P@@ IF AS="9" THEN T=T+1 


ices 


PRT £21 
aah? 
Or 
2 
sap 
24e 
lat) 
ae 


240 
Zhe 
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SC=SC+INT CRNDET) +4 
SQUND 1,22,9 


Yai: X=X+INT (RNDK24) -INT(RND*24) : 


IF X2=9 OR X<1i THEN GOTO 26e 


27@ RETURN 

DQM REMEAKAKEFATLUREXEXKEK 

29@ MLS:LOCATE 12,12 

2@@ PRINT'You orevented "3SC 

Z=1@ PRINT TAB(9):s"Tonnes cf hombs 15 
nding" 

Z2@ GOTR 226 
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BRICK OUT 


Most people have heard of Breakout. In this version, the 


roles are reversed. You must stop the ball from knocking a 
hole through the wall. 


This game is great fun and utilises some excellent graphics. 
Use the ‘7’ and ‘9’ keys to move your bat. 


1@ ROMA KKK EK KKH KKK KK KKK KEK 
Be REMAKE? BRICK-OUT? XKXKX 
ZQ FEMKX*KXSHAW/ETFEORDRXKK 
40 REMAKE KKKKKKKKKEKEKKEKYE 
Se H= 

6@ SOSUR 570 

7@ FOR z=i TO: 
2@ AS=AS+AS 

99 NEXT Z 

19@ FEN Z2:CLS 
11@ 1ILCQCATE 7,1 
120 PRINT A 
127@ LOCATE 2.2 
140 PRINT 4% 
15@ LOCATE 7,2 
14@ PRINT AS 


17@ GS=AtsLOCATE 2, 22:FRINT 4 


19@ PEN ? 
19@ LOCATE 98,25 


20@ PRINT CHSs(2£4):"1984 C.GIFFORD/ 


21@ PEN = 
22@ FOR X=1 TO 22 


2a LOCATE 2,% 
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240 PRINT “d's 

25@ LOCATE ZE.x 

246@ PRINT "dd": 

272 NEXT Xx 

230 PE=INtEYs 

290 IF S¢="9" AND G< Za THEN A=A+2 
Zae IF P¢="7" AND Az? THEN A=A-2 

Zi@ IF @=2 THEN LOCATE A,7:FPEN Z:PRI 

NT "d"::PEN 22PRINT" abc “":GO0TO 74a 

22@ IF A=Z@ THEN LOCATE A,7:FRINT " 
abo'::PEN S:PRINT'd":PEN 2:60TO 24a 

ZZO@ LOCATE A,7:PEN 2:PRINT " abc “ 

240 LOCATE D,C:PRINT " " 

250 IF C>2@ THEN F=-F:SOUNP 1,18@,15 

= 


Z6@ IF D>ES OR D<4 THEN G=-G:SCUND 1 
6140.15 

270 C=C+F 

28@ D=D+5 


Z9@ LOCATE D.C:PEN 1:PRINT 8¢:PEN 2 
4a IF C=2 THEN GOSUP 45¢ 

41@ IF C<>7 THEN GOTO 4ze 

42@ IF D=A+2 OR D=A+Z OR D=A+4 THEN 
F=-F:SOUND 1,1@@,15 

4Z@ IF C=1 THEN LOCATE 7, 
AME OVER. SCORE: ":SC:GOTO 
44@ SC=SC+27:60TO 280 

45@ IF MID$(AS,D-1,1)=" " THEN RETUR 


469 MIDS (AG, D-1.1)=" " 
47 F=-= 


48@ SOUND 1,2¢9.15 
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4°® LOCATE 2,2:FPEN 2sPRINT Se:FEN 2 
s@e@ RETURN 

s2i@ IF SC SH THEN H=SC 

52@ LOCATE 1@,17:PRSINT “HIGH SCORE:" 


S2@ FOR T=2@@ TO S@ STEP-2: SOUND 1.T 
s2QsNEXT T 

S4@ WHILE TNKEYS=""sWEND 

s5@ CLS 

sé@ (OTQ &6@ 

S7@ REMKXKINITIALTSATIONKXKXX 


6@@ D=SzAg="4" 

61@ BSt=CHRE (271? 

62@ REMKXXDEFINE GRAPHICS**x 

62@ SYMBOL AFTER 95 

64@ SYMBOL 97,1.21,127, 255. 255, 2£5,2 
55,248 

65@ SYMBOL 98,255. 255.255, 255. 255, 25 
5.2.8 

660 SYMBOL 99,128, 248,254, 255. 255.25 
5.255.221 

672 SYMBOL 10, 254,254. 284, 0, 229, 229 
239,08 

£9@ REMKX* abc 
690 REMEXK 4 
7@@ RETURN 


SHIELDKXx 
BRICKSKX* 
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CITY SACRIFICE 


Your plane is running out of fuel fast. You start to drift lower 
and lower. You have not been away from your flying base for 
more than 15 minutes when this happens. Below you is the 
city of New York. You start to think the unthinkable. If your 
nuclear weapons are detonated, they will destroy a third of 
the United States. However, you must obliterate a portion of 
the city with your bombs in order to land. 

This version is faithful to the arcade original. Not much 
dexterity is needed as you only have to press the ENTER key 
to drop your bombs. What is needed in abundance, however, 
is some good judgement and strong nerves. Good luck. 


190 REMKKXKKKEKEKKKAEAEKKAKKKAKKE 

2@ REMKKXX**KCITY SACRIFICEXKXKXX 

SO REMEKKEKKKKKKAKKKKKAKKKKKKKEK 

4@ PEN 1i:PAPER © 

5®@ ENT 1,1900,-9,1 

4 GOSUB 694: REM*k*kinitialisationxxx 
74 REMKKX*KAMAIN ACTION LOOPXXXxXx 

986 LOCATE AA, BB:CALL &BD1I9:PRINT" " 
960 A=At+1:IF A=29 THEN A=1:B=B+1 

10@ LOCATE A,BsPRINT CHRS (141) 3; CHRS ( 
14@) 5 

119 IF N(A+2,B8)9=1 THEN GOTO 25@:REMx* 
XKcrashkx* 

12@ IF A=29 AND B=24 THEN GOTO Sé0:R 
EM***successkt kk 

12@ AA=A: BB=B 

14@ SOUND 2, 20@0.,4,5,9,1 

15@ SOUND 1, 72@@0,6,5 

14@ LOCATE 25,1:PRINT SC; 
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17@ IF INKEY(18)=@ THEN GOSUB 199 
18@ M=M+1:GOTO 74 

19@ REMK***ROMBS AWAY *XES 

20@ C=A:D=R+i 

21@ LOCATE AA, BR:CALL &BDI9:FRINT" 
22M A=A+1: IF A=F9 THEN A=1:B=R+1 

22@ LOCATE A,B:PRINT CHRS (141) ; CHRS ( 
14@)5 

24@ IF N(A+2,B)=1 THEN GOTO 2350: REMk 
¥Xcrashkxxk 

250 IF A=29 AND B=24 THEN GOTO Séa:R 
EM*k*Asuccesst kX 

260 AA=A: BR=B 

270 LOCATE 25,1:PRINT SC; 

2B@ LOCATE C,D=sPRINT CHRS (252) 5 

29@ SOUND 1,Px*15,3 

30@ SOUND 2,2000,7,5,0,1 

31@ IF N(C,D)=1 THEN N(C,D) =@:SC=SC+ 
16 

32@ LOCATE C,D:PRINT" ": 

33@ D=D+1:IF D=25 THEN BM=BM+1:RETUR 
N 

34@ GOTO 214 

%5@ REMKAXKXXXKCRASH KE KEKE 

36@ FOR T=1 TO 29 

378 PEN 3:SOUND 1,1500,17,15,0,4,5 
3B@ CA=A+INT (RND*4)-INT (RND&2) s CR=B+ 
INT (RND£3) —INT (RND*¥3) 

390 IF CAS29 OR CA<K1 OR CR>25 THEN G 
OTO 38@ 
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4@@ LOCATE CA,CR:PRINT CHR$(228); 
41@ NEXT T 

42@ LOCATE 1,25 

430 FOR T=1 TO 2@:PRINT:SQUND 1, 20xT 
,4@:NEXT T 

44@ LOCATE 10,1 

45@ PRINT "YOU SCORED ":SC 

46@ IF SC<80@ THEN LR$="YOU TOTAL ID 
1oT" 

47@ IF SC>799 AND SC<126@ THEN LRS=" 
WHICH YOU ARE LUCKY TO GET" 

48@ IF SC>1199 AND SC<18@6 THEN LR$= 
“TRAINEE AIRCRAFTSMAN" 

49@ IF SC>1799 AND SC<2300 THEN LR$= 
“OH CO-PILOT" 

5@@ IF SC>2299 AND SC<280@ THEN LR$= 
“INEXPERIENCED PILOT" 

51@ IF SC>2799 AND SC<3300 THEN LR$= 
“EXPERIENCED PILOT" 

520 IF SC>3299 AND SC<Z90@ THEN LR$= 
"FLIGHT COMMANDER" 

SZz@ IF SC>3899 AND SC<46@0 THEN LRS= 
"FLYING ACE" 

54@ IF SC>4599 THEN LR$="SQUADRON LE 
ADER" 

550 GOTO 610 

560 REMK****SUCCESS&4 Kee 

570 LR$="WAR HERO" 

580 SOUND 1,10@,15@:SOUND 3,906,150:S 
OUND 2,110,15@ 

59@ CLS:LOCATE 12,1@:PRINT“YOU DID I 
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T; 

600 
610 
62@ 
638 
64@ 
65@ 
669 
479 


WELL DONE!" 


GOTO 41@ 
REMKXX**PLAY AGAINEKKE 

PRINT: PRINT: PRINT 

PRINT “ ANOTHER 60, ";LRS 
PRINT 

PRINT TAB(1@):"PRESS 7Y" OR 7N?" 
AS=INKEY$ 

IF AS="Y" THEN RUN ELSE IF AS="N 


“ THEN END 


480 
692 
7@O 
719 
729 


GOTO 640 

REM*&XX¥*DRAW BUILDINGSX XXX 
CLS:MODE 1 

RANDOMIZE TIME 

SYMBOL 255, 255, 255, 195,195,195,1 


95,2595, 255 


730 
74a 
75@ 
76@ 
779 
780 
798 
Boo 
8194 
82a 
8228 
B4e@ 
85@ 


86a 


DIM N(4@, 24) 

FOR G=3 TO 38 

X=INT (RND*16) 

FOR T=24 TO 24-X STEP -1i 
N(G,T)=1 

LOCATE G,T 

PRINT CHRS (255) 

NEXT T 

NEXT G 

REMK*X*XXKXOTHER INITILISATIONKX*X 

SC=@: C=0: D=@: A=1:B=2 
AA=A: BB=B: M=0: BM=e@ 

LOCATE 1,12:PRINT CHRS(164)5 "1984 
CITY SACRIFICE SCORE: “ 

RETURN 
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ATTACK OF 
THE MUTOIDS 


Cruising round the galaxy in your V-wing fighter may 
normally be fun, but not today. The malevolent planet Aurora 
has sent out its latest weapon, the mutoids, in an attempt to 
destroy you. 

The mutoids are capable of changing shape. When you 
come across them, they are disguised as harmless-looking 
red blobs, but beware, the 30 Megaton Nuclear device they 
carry is far from harmless. 

Your side-shields will take care of any side blows but your 
nose area is your most vulnerable. 

You steer your vessel using the ‘Z’ (thrust left) and the ‘M’ 
(thrust right) keys. 


1Q REMERR ERK K KKK EERE KEE EEK 
* 

20 REME£XXX ATTACK OF THE MUTOIDS* «xx 
x 

SOQ REMARK AKER AK RRA KKK A KK KE EK EEK 
x 

40 N=0 

5@ X=10 

5@ XX=10 

7® INK @,® 

75 INK 1,24 

B@ BORDER @ 

9@ CLS 

19® DT=TIME/Z00 

11@ LOCATE XX-1,13:FRINT " " 

12@ LOCATE XX-1.12:PRINT " " 
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139 
14@ 
15@ 
169 
179 
18@ 
198 
269 
219 


220 


23 


LOCATE XX-1,11:PRINT " " 
LOCATE XX-1,10:PRINT " " 


LOCATE X-1,14:PRINT " Vv " 

XX=X 

N=N+1 

MS=INKEYS 

IF M$="Z" AND X>2 THEN X=X-1 

IF M$="M" AND X<28 THEN X=X+1 

IF TEST ((16%X)-8,146@)=3 THEN GO 
360 

LOCATE 1,25 

IF INT(TIME/300)-DT>2 THEN DT=DT 


+2:GOSUB 216 


242 
250 


262 


FOR C=1 TO INT(RND*7) 
PEN 3 
PRINT TABCINT (RND&37) +1) 5 CHRS (14 


PEN 1 
NEXT C 

PRINT 

GOTO 11@ 
REM&X**SOUND4*2 kx 

ENV 6,15,-1,1 

ENT 1,30,1@,1 

SOUND 1,500,20,15.1,1 
RETURN 

REMK*£* EXPLODES 44% 
FOR T=1 TO 20 

INK @,T 

SOUND 1,150.15 

SOUND 1,350.15 
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NEXT T 

FOR T=1 TO 29@@:NEXT T 

CLS 

INK 1,9 

PEN 1 

LOCATE 18,10 

PRINT "YQU ARE DEAD" 

PRINT 

PRINT “ but you scored";Nxt 


END 
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SURROUND 


Surround is one of the most well-known arcade games 
available. You steer your moving line around the screen 
attempting to trap your opponent. The losing player is the one 
that hits one of his or her own lines, the opponent's line, or 
runs into the edge of the screen. 

As this is a two-player game, | have carefully chosen the 
keys so that both players feel comfortable when they are 
playing the game. The Amstrad, with its long keyboard and 
separate numeric keypad, make this easier. 

The keys are as follows: 


For the player on the For the player on the 
Left Right 

Q for Up 9 for up 

A for down 6 for down 

Z for left 1 for left 

X for right 2 for right 


(n.b. these are the 
numbers on the numeric 
keypad.) 


19® FEM*** xCURROUND* x*x* 

=@ GOSUB 440 

ZO A=AOOes Bs ZOeG: X=BOOes V= ZAG 
40 K=2L<=6 

5@ R#-@:2:T=@ 

&£@ ECRDER 1 

7 REMEX*XKAKXMATH LOOPKXKXK 
Pe MODE i 

Sees 
1@@ '!OCCATE t,t 
@ PEN 2 


4 
22 PRINT TABCIS) s "SURROUND" 


4 
4 
1 
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PLOT 1@,27@,1 
DRAWR See.@ 
DRAWER @,-Z4a 
DRAWR -=fee,% 
DRAWR @, 746e 


DRAWR 
DRAWER @, 
DRAWR 


DRAWER @. 764 
AA=A: BR=P 


IF INKEY (14) =® THEN K=1 


TF INKEY(12)=@ THEN K=-1 
IF Ki>@ THEN A=AtK:L=e 
TF INKEY(2)=@ THEN L=?t 


EP=P THEN FOTO 
TEST (CAt+K, tL 4>@ THEN 470 


Ze0 


ee 


REM KKK KKK KKK KKK KK EK KK KK KKK 


INKEY (69)=@ THEN T=-1 
T4>@ THEN Y=Y+T:R-o 


27 


Dynamic Games - Amstrad 


28 


4ze 
4ae 
azo 
AEG 
Kx 
Ave 
490 
Age 


Fae 


TE X¥X=% SND V¥Y=¥ THEN ENTO 450 
TF TEST CX4R Y4+T 2 >a@ THEN 4286 
BOTO iva 


REMAX ** KCCOARRAASSSSMHH! keke 


WINE=Nt (2D) 
FOR V=zer 
SOUND 1.V,4,15 

TE WoOte THEN SOUND 2,U+2.4,15 
IF VftE@ THEN SOUND 3,V-2.4,15 


BORDER INT (SND*¥2S) 


> 


TH Ee STEP-2 


NEXT 
SOUMD 1,46, 1@0:S0UND 2, 4@,1@@:s0 


as 


ZAM, tom 


LOCATE 220,120 


PRINT "VOU WON “sWINe 
LOCATE 18.12 

PRINT "WELL DONEF Ere 
OCATE 1,74 

FOR T=1 TO t@0@:NEXT T 


POINT "Weuld vou likes to play ag 
INKEYS="" AMD INFEVZ<3°¥™" THE 


REMAXXKXSTART OF ECAMEX Kae 


wItM he (> 
teat: IWS Lae 


REM*A*EXTITLE SCAGEXHK 
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72¢@ POINT "SURROUND" 
72@ PLOT 196,249 
74@ DEAWR Bae 
78 SOR Tet. TR LEVesNeExX? F 
7SO DRAWR @.-B8@: SOUND 2, 7%e6, 120 
77@ FOR TS) Te tee 
72@ DRAWR —-24e@,@sSCUND 1, 28 
FeO FOR Tet TO LTEats NEXT T 
Gene DRAWS @.26:SOUND 1,1@@, 12a 

81@ LOCATE 1,24 

Rae PRINT "22s ece a. PRESS ANY KEY TA 
ON UE ser ere eye ac 

o@ WHILE. SNMEYS= s WEND 


4@ SOUND 1.196 


246@ LOCATE 14,10 

PO ENTS, SeLAVER. ae 
19@ SOUND 1,20 

9@ !OCATE 18,14 

96@ INPUT “PLAYER 2" sNe (2) 
9t@ SOUND 1.15¢ 


920 SETUSN 
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ARNOLD THE 
ELECTRICIAN 


Arnold has been called to the Manor as the Electricity 
Generator has gone on the blink. On entering the Generator 
room, he finds charges of electricity Zooming aorund. Arnold 
must avoid these as he trundles around collecting all the light 
bulbs. How long can he last, collecting the light bulbs and 
avoiding the electric charges? We shall have to see. 

The game, which | think is one of the best in this chapter, 
is controlled by the joystick. Holding down the fire button 
results in the program pausing until it is released. There is 
also a high score feature. 

( 
12 SOMA KKKK KKK KAKA KKK EKER KEK 
OK 
2H REMKkX**xXARNOLD THE ELECTRICIAN 
440K 
Ta REMC OOOO Kok 
**xx 
4M PRINTIPRINT:PRINT " PLEASE WAIT 
FOR A MOMENT. ARNOLD" 
SO DIM $(4@, 25) :HS=e 
40 Y= 
70 INK @,@ 
86 BORDER 2 
90 INK 2,25 
19@ INK 1,14 
<4 
12@ GOSUB 4698 
12@ GOSUB See 
14@ REM*X*k¥MAIN | DOPXKX* 


11@ IME = 
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150 L$=CHR¢ (249) 

16@ V=V4+1i:IF Voi THEN V=Or:LSs=CURS (24 
g) 

17 J=JOY (a) 

18@ IF J=1 AND X22 THEN X=X-1:P=1 
199 IF J=2 AND X<24 THEN x 
26@ IF J=4 AND Y>2 THEN Y=Y-1:F=2:L¢ 
=CHRS (251) 

21@ IF J=@ AND ¥i7B THEN Y=Y+t:F=4:L 
$=CHRS (250) 

22@ IF J=1é THEN GOSUB 34a 

22@ IF J=® AND P=1 AND X= THEN Y=Xx- 


24@ IF J=@ AND F=2 AND X<24 THEN X=x 
25@ IF J=@ AND F=3 AND Y>2 THEN Y=yY- 
26@ IF J=@ AND P=4 AND Y<Ze@ THEN Y=v 


274 LOCATE YY,XX:PRINT" " 

280 IF S(Y,X)>@ AND SCY.X)<1@ THEN S 
C=SC+S(Y,X) *2O@;SOUND 1,15@,4,12:S¢Y, 
X}=@ 

29@ IF SCY,X)>9 THEN GOTO 27@:REMKex 
LOSEXxK* 

FOQ LOMATE Y,%:SEN 1:PRINT LE 

Z1@ LOCATE 7,1:PRINT SC 

BBQ XX=X2 YY=¥ 

ZZ@ SOUND 1,40@,1,10 

Z4@ TF RND?@.946 THEN A=INTCRND424)42 
PB=INT (RND*21)4+2:LOCATE A-1,2:C=INT* 
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RNDK9)41:S¢(A, 2) =C:FEN ZrPRINT "&"2 SE 
No 1:SQUND 1, INT (RND&S@)+9@,4,15 
THO TE RAND ?@.94 THEN F=INT(RND*26) 42 
:G=INT(SND*21)4+2:LOCATE ©&,G:FEN 2:PR 
INT CHRE(42):S(F,G)=16 
76 GOTO 144 
Z7O REMAX KLOSE* KKH 
Z8@ SOUND 2,60@,16,7,1,12,2 
TOG SOUND 4,60@,280,7,9,12.4 
40 SOUND 1,600,76,7,4, 
4ia CLS 
42 LOTATE 4,46:°R INT “YOU HAVE BEEN 
ELECTROCUTED! Ht 
42 SOUND 1,4@@@,15@,15,1.1,5 
440 LOCATE 17,14 
45@ PRINT:IFRINT“YOUR SCORE WAS ";SC 
469 IF HS>SC THEN PRINT" THAT IS NOT 
UP TO THE HIGH SCORE ";HS 
470 PRINT 
48@ TF HS<SC THEN HS=SC:PRINT"WELL D 
ONE. YOU NOW HAVE THE HIGH SCORE" 
490 PRINTIPRINT? PRINT 
5@@ PEN = 
S1@ LOCATE 6,16:PRINT "HIGH SCORE Is 
"SHS: "WATTS" 
S2@ PEN 1 
SZOQ PRINT:FRINT:ERINT ANOTH 
ER GAME? (Y/N)>" 

D$=INKEV$:IF D¢="" THEN 54a 
5@ IF D¢="Y" THEN SOUND 1,1@0,4¢:60 

20 


ax 
t 


Dynamic Games - Amstrad 


S40 TF DS="N" THEN PRINT"OK, “: END 
378 IF D$<o>"" THEN 2408 

[Ae RSEMKAKSCREENSAX 

a9 MODE t 

S0@ CLS 

61@ PEN 2 

529 PRINT" SCORE: ":SC; 

620 PRINT" ARNOLD, THE ELECTRICT 
AN" 

S4@ FEN 1 

650 PRINT" HHHHRHHHEHHHE EHH HE HHH HF 
4 HE aE HEHE HE aE EEE EE 

66@ FOR T=1 TO B22: PRINT'H#"s TAB(Z9) 5" 
#"3 NEXT T 

S7Q PRINT "44 Het Hat st at Ht ae a a Ea EE PE 
SHEER HEHE FH HE" 

629@ RETURN 

69@ REMKX*K*X*INITIALTISATIONSKXKX 

7@oM FOR H=1 TO 4@ 

71@ FOR V=1 TO 3E 

728 SCH,V)=8 

720 NEXT: NEXT 

74@ X=2a:Y=12:SCl=8 

7JSQ XX=X2YY=¥ 

76@ F=O:G=0:A=9:B=@ 

77@ SETURN 

78@ REM***kUSER DEFINED GRAFPHICS*xx 
79@ SYMBOL AFTER 22 

8@@ SYMBOL 25,178, 85,17%,95,178,85,1 
7@,85 

81@ SYMBOL 42,6,12,24,63,2,6,12,24 
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82@ SYMBOL 28, 124,222,190, 254, 124,56 
656,56 

@=@ RETURN 

84% REMKXKPAUSE ROUTINE kk 

S@ WHILE J<214 

86@ SOUND 1,1,1,1@ 

87@ FOR L=1 TO 1@:NEXT L 

e9@ WEND 

89@ RETURN 
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ESCAPE FROM 
JANUS 15 


Being locked in the Power Complex of Janus 15 is not every 
space traveller’s idea of fun, but you have always had a taste 
for the unusual. Employed by the Sirius Corporation, you are 
to steal the Strontium Crystal that powers Janus 15. Once 
the crystal is in your possession you must get back to the exit. 
Time is short, as the complex is set to explode in an hour 
(around 70 moves). As well, there are a number of traps which 
will use up your time. You move around rhe complex, using 
the standard adventure commands N,§S,E, and W. 

| suggest that you try to make a map of the complex as 
this will aid you in your struggles to fulfil your contract with 
the Sirius Corporation. If you do this, you will become the 
first person to escape from Janus 15. 


10 REN SOOO OOOO x 
2@ REMX**x*ESCAPE FROM JANUS 15*4***x 
BO REMI OR REE EE ETEK 
49 C=i:CF=0 

5@ MV=0 

6® GOSUB 480 

70 P=1 

8@ BORDER 1 

90 INK 2,18 

10 INK @,@ 

119 INK 1,24 

120 INK 3.6 

120 REM***X***XMAIN GAME ACTIONS*x*4% 
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149 CLS 

15@ MV=MV4+1: IF MV>7@ THEN CLS:LOCATE 2 
,l2:PRINT "TOO LATE, YOU HAVE BEEN ATO 
MISED!!!";sEND 

166 C=INT(P/17) +1 

174 SOUND 1, INT (CRND£200) 450.50 

180 SOUND 1, INT (RND*260) +50, 56 

196 REM*X*DRAW SURROUND*E£x 

20® PLOT 250,250 

210 DRAW 1,150,C 

22@ PLOT 250,250 

2208 DRAW 790,250,C 

24@ DRAW 640,15@,C 

2590 IF L(P,1)<>0 THEN GOSUB 40@ 

260 IF L(P,2)4>@ THEN GOSUB 4612 

270 IF L(P,2)¢>0@ THEN GOSUB 470 

280 IF L(F,4)<>0 THEN GOSUB 544 

290 IF P=6 THEN PRINT “YOU NOW HAVE TH 
E CRYSTAL. MAKE YOUR WAY TO THE ESCAPE 
EXIT AS FAST AS YOU CAN":CF=1 

20Q@ IF CF=1J AND P=S6 THEN INK 1,16: INK 
2.15: INK 3,16sFOR T=1 TO 2O:PRINT " 
YOU ESCAPED FROM JANUS 15 IN TIME":NE 
xT T: END 

21@ FOR T=1 TO 1@:1F D(T)=FP AND FPC36 A 

ND P<>1@ THEN FRINT "YOU NARROWLY MISS 
A TRAP LOSING TIME... "°:MV=MV+8 

220 NEXT T 

32308 LOCATE 4,22: INPUT “WHICH WAY MASTE 

R" 3; AS 

248 BS=LEFTS$ (AS, 1) 
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350 
ae) 
260 
+2) 
270 
-3) 
280 
24) 
390 
4a0 
410 
420 
420 
440 
ASO 
460 
479 
480 
490 
540 
510 
520 
Sz 
549 
550 
54o 
570 
580 
59a 
600 
10 
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IF BS="N" AND L(F.1)<>@ THEN P=L(P 


IF R$="S" AND L(P.2)<>0 THEN F=L(P 


TIF BS="E" AND L(P.2)<>@ THEN F=L(F 


IF BS="W" AND L(P,4)<2@ THEN P=L(F 


GOTO 


140 


REMAX*XDRAW NORTHXKX** 


PLOT 
DRAW 
DRAW 
DRAW 
DRAW 


250,250 

266, 280,C 
280, 280,C 
290, 2750,C 


250, 250,0 


RETURN 
REM*EXKDRAW EASTEX* 


PLOT 
DRAW 
DRAW 
PLOT 
DRAW 


5@.1790 
4@,298,C 
1,280.C 
50.170 
1,150.0 


RETURN 
REMS¥#*DRAW WESTKXX 


FLOT 


DRAW 
DRAW 
FLOT 


DRAW 


590,170 
500, 290,C 
644,2B0,C 
596,170 

640,150, 


RETURN 
REM****DRAW SOUTHKKES 
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620 
429 
648 

38 
666 
672 
68 
699 
7@®@ 
718 
720 


BHO 


PLOT 


DRAW = 


DRAW 
FLOT 
DRAW 


228@,100,C 
20,8@ 
210,90 
220, BO 
Zz, FO 


RETURN 

REMKEX XX INITIALISATIONK**S 
DIM L(S@, 4) 

FOR X=1 TQ 5@:FOR Y=1 TO 4 


READ 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


L (X,Y) sNEXT: NEXT 
24,0,0,9,80,18,0,0,0,42,0, 24 

17, 25.9,, 18.13, 40,0,0,0,9,10 
41,9, 24,40,0,47,0,11,9.9,39,0 
@, 44,6, 22, 40,12, 8, 13,11,%, 0,1 


5.0,11,9,0,19, 12,16, 26.21, 29. 
@,17.9,21,16,4,0, 22,272,500 

14,0, 45, 0,0, 0,74, 278, 15, 22,0,0 
21,%,17,50, 4%, ©, @, 49, 28.1,3,7 
A, Oy B75 TI Oy ADs S25 1479, 48,0 
44,35,0, 54, 25, 0,0, 15,0, 29, 0,9 
©. 274 2hy Oe 06M, 19, 26, 0,9, 0,42 

0,0, 28,20, 28, 29, 0, 76,0, 15, 35, 
71,9, 42, 25.0, 24, 20,41, 20,27,2 


27.11, 7,55, 9.75 38,275 26,9, 3555 


3,22,15,90,19,28,0,0,0,0,46,19 
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B87 DATA 47,18,49, 45,85 46448, 0, 0,49, 23 


247, 


S80 
899 
900 
910 
920 
920 
949 


48,0,0,446,9.%,22.0 

DIM D(1) 

RESTORE 912 

FOR T=1 TC §:READ D(T):NEXT 
DATA 11,17, 21.6, 28.4%, 48,3 
D (9) =INT (RND¥46) +1 
D(1@)=INT (RND*464) +1 

RETURN 
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FEELING 
ADVENTUROUS? 


Adventure games have come into their own in the last cou- 
ple of years. Using new computers with greater and greater 
memory capacities along with complex graphics and sound, 
adventure games have been made more ambitious and more 
interesting. Today, it is rare to thumb through a computer 
magazine without seeing large numbers of adventure games 
advertised. 

What exactly is an adventure game? Basically, an adven- 
ture involves you interacting with an environment created by 
the adventure programmer and run by the computer. Usually, 
you have a goal, to rescue a prince, retrieve lost treasure or 
to kill a vicious monster. 

Most adventures have a range of commands which allow 
you to move around the different places in the adventure and 
to manipulate the different objects within the adventure. 

One of the main reasons for the popularity of adventure 
games is the way the player can escape reality and be plung- 
ed into a different situation to his or her own. Some situations 
are definitely mythical (though no one can be fotally sure that 
Middle Earth is not inhabited by hobbits and trolls) while others 
are based on more down-to-earth situations, such as one of 
the adventures in this chapter, which is based around an of- 
fice block. 

Escaping from our everyday lives along with the fun of try- 
ing to solve puzzles, lies at the heart of adventure games. 
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CITY OF 
ATLANTIS 


Your diving expedition has taken you very close to the fabled 
city of Atlantis. The Atlantians consider you a security risk 
and have imprisoned you in the detention centre while they 
try to decide what to do with you. 

An Atlantian guard watches you night and day. You must 
try to get back safely to your diving ship. But your problem 
is more difficult than that. The thin air that the Atlantians 
breathe prevents you from moving around much and more 
of a problem, the power reactor that provides Atlantis with its 
energy is becoming unstable. 

In your attempt to escape with your life, you will come across 
a number of characters, hazards and problems. This adven- 
ture is not easy to solve and has some novel features. lan 
Watt wrote the original version of this game which I’ve 
modified for the Amstrad. 


18 REMAX KK EKA ROKER KK KEKE KE 

Se REMEKKKXTTTY OF ATLANTIS¥*kx* 

0 REMKKE KR KEKKKK KKK KE KKK A KK EY 

4M X= 

S@ INK 1,24 

6@ FEN 2 

7@ BORDER 11,14 

8 GSOCSIUR 1700 

9@ PRINTIPRINTIPRINT "DR YOU WANT IN 
STRUCTIONS? (Y/NI"s:s INPUT Z:IF Ze=" 
Y" THEN 16@ ELSE 1968 

to@ CLS:FPRINT "While on a diving exp 
adition you were captured by the o 


ecole from the City cf Atlantis unde 
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r the sea and you are now aprisoner 
ef theses seasle." 

1i@ WHILE INKEY¢="":WEND 

12@ MLS:PFRINT "You have to depend on 
Qiving the computer instruct 
ions sco that you mav escape." 

42 


2@ WHILE INKEYS="":WEND 

14@ CLS:PRINT "nter a command or an 
object as the computer orcompts 
you - You witl find that. for eac 
h word you will enter the least num 
ber sf letters that will deter 
mine cone word from ancther." 

12@ WHILE INEKEY4=""sWEND 

16@ CLS:PRINT “If one combination cf 
command and cb jectdces net work the 

motry another" 

17@ WHILE INKEYS="":WEND 

188 CLS: A=125 WO: Vaasa 

19@ REMXXK*XKMATN LOOP KEKE KKK 

195 SOUND 1,.1@@.,560.,3.2.4 

2@e@ PEN LsLOCATE 12,25:FRINT “PRESS 

ANY KEY" 

21@ PEN 2 

22@ W=W+isRESTMRE:FOR T=1 TO 9ea@oa: TF 
INKEYS<>"" THEN T=9e@0ne@ 

2i@ NEXT T:CLs 

24@ IF E€(6)=-2 AND U<é THEN. U=U+1 

2o@ IF (A=4 OR Axil? AND E(4112)=@ THE 

N PRINT "The SORILLA is hungary again 

~..":650TO 84a 
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26@ IF Wet4 AND ECt}<>-2 THEN PRINT 


"The Power Reactcr has become unstah 


bow 
” 


RILLA has run after the SEA Mo 
NSTERL" 


290 TF €(2S)=A AND £(24)=@ THEN EC2& 
}S-D2E(27)=O: PRINT "The ((RAZY LECTUR 


ES takes the beokliet andgives you se 


ZOe@ FOR B=1 TO A:SEAD AS:NEXT B:LOCA 


TE 1,2:PRINT " "3A 


Z2@ PRINT “ EXITSs- s"g21F A(AMCSe T 
HEN PRINT "NORTH: "3 

3Z@ IF B(A)<>@ THEN PRINT "SOUTH: "3 
Z49 IF C(A)<3@ THEN PRINT "SAST:"; 
ZE@Q IF D(A) 2G@ THEN PRINT "WEST: "3 
Z26@ PRINTIPRINT?PSINT " OBJECTS: -"; 
Z7@ H=@:FOR C=t TO Z@rIE ECC <2A THE 
N GOTO 38@ ELSE POINT':"ZHe(C)s 

2B@ NEXT © 


Z9Q PRINT "[----------------------- 


4ae PRINT:PSINT “ INVENTORY: —": 
4i@ F=@:FOR C=1 TO ZO:IF E(C)<30 AND 


EfC)}<>-1 OR F=5 THEN GOTO 426 ELSE 
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PRINT "s"sH(C) 
A2@ NEXT C 


4Z@ PRINT “{—--------~------~--------- 


44@ PRINT 

43@ PRINT" COMMAND": 2: De=""s M=0sN=0 
446@ TF © >i AND A=24 THEN PRINT "The 
rope ladder has broken...":SOTN £4¢ 
47@ IF A=14S AND ECi?7)}<:@ THEN PRINT 
"The WARRIOR catches you as you try 
and escape the City.":f0QTR 24e 

49@ IF A=14 THEN FRINT"The WARRIOR s 
Pes your chains and thinks you will 
not go far." 

49@ IF €©€(18)=0 THEN PSINT “Some Atla 
ntians hear you cver their madic 
s and investigate...":G0TO 246 

Seo [© A=2L AND &Ef12)=A THEN PRINT " 
The SEA MCNSTER has caught you. ":GOT 
 24e 

Si@ INPUT D¢:DDSt=lEFTS (DE, 7) :PSINT 
S2@ FOR C=1 TO 27:IF LEFTS (DOs, 1)=Es 
(T) OR LEFTS (DDS, 2)=BE(C) OR DDS=BEF ( 
™) THEN M=(l:C=27:DV=1 

S2@ NEXT €:IF DV=1 THEN GOTO 34e ELS 
© GOTO S&e 

540 TF M>@ AND MES OR M=24 OF M=22 0 
R M=29 THEN GOTO 6@@ ELSE GOTO 5768 
Sae@ PRINT "Tem serry. But I da not k 
now how teo":FRINT PS3" scmething.":& 


QT 2ae 
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S50 PRINT "I?m sorry, but I de net k 
now what a™“:FPRINT Dts" is. ":fOTO Bae 
570 PRINT “ OBJECT? He 2 Deas" sha 

S8@ INPUT E@®:f&t¢- SPITS (EG. 2):=FOR Cri 


69@ PEN ZSPRINT:PSINT " "SCs (M) 

61@ TF M>e@ AND MES Of M=24 OF M=232 7 
“2@ ELSE PRINT " "; 

62@ PRINT 

620 ON M GOTO 714,710,710, 710, 870,87 

@, 278, 920, 928, 929,974, 19F0, 986, 920.9 

2H, 1998, 1990, 19a, 1196, 1270,12460,120 

@, 1240, 1276@,12990,145@,1490 

64@ PRINT "I cannot do that.":GOTO 2 

am 

6S5@ PRINT "Io am already carrying it. 

":GOTQ 2908 

66@ PRINT "To am carrying tso much":G 

NT Dae 

670 PRINT "Ok.":GOTO Bea 


2 PRINT "TI doe net see it here": SOT 
909 PRINT "To am not carrying itf":G0T 


7@@ PRINT "I do not see a place to on 

ut it": 60TO 2ae 

7i@® IF (M<23 AND 4S=1) THEN V=t:FPRINT 
"The ATLANTIAN laughs at vou walkin 
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G intcthe wall":GOTO 2ee 
72@ IF M=2 AND A=1t AND V=e@ THEN PRIN 
T "The ATILANTIAN will nat let vou pa 
ss":GOTO 26a 
7le IF Vel THEN Ve@:A=2:PRINT "The & 
TLANTIAN is distracted and doss nots 
ee you leave": SOTQ Dee 
74@ IF EC73=A THEN PRINT “The GLADIA 
TOR will net let yeu pass":GOTO 2ae 
72@ IF &(8>=A AND M=2 THEN FRINT “Yo 
uo cannct walk thrsugh the old docr": 
—SOTQ 2ee 
76@ IF ©{2@>=A AND M=2 THEN FRINT "T 
he ORG is in the wav. ":GOTO Bae 
779 IF £©€(29)=A AND M=t THEN PRINT "T 
he wall is toc solid for vou tc go 
through it."sGOTO 2eo 
78@ DV=A 
79@ IF M=1t THEN A=AtATLAD 
R@@ TF M=2 THEN A=AtE (A> 
F M== THEN A=A+l 6A) 
2@ IF M=4 THEN A=A+Eb AD 
F S8=DV THEN PRINT "NO EXIT! ":(50 
TQ 2@@ ELSE GOTQ 2ee 
948 GOSUE 18Z@: REMEKEKDESEATARKK 
B5@ PRINT: PRINTsPRINT:PRINT " PRE 
SS THE SFPACERAR TO RE-START" 
86e@ IF INKEY¢=" " THEN S@ ELSE GEOTR 


B7@ IF Ne>t AND Net? AND Neb? AND Ne 
2i@ AND NesisS AND N<>i? AND N<218 AN 
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DNC BL AND Neitz AND Ne>t4d AND (N<2 
& OR N32) AND Ne>ze THEN GOTO 4£4@ 
3 F ECM =@ OR E(N)=-1 THEN 456 
29@ IF F=4 THEN 468 
E (N><>A THEN 6B8e 
91@ ECN) =@:GNTN S7e 
O2@ IF ECN)<7O@ AND ECHO <>-1 OR N=22 
AND £€424)=-1 AND Hr4 THEN 6°@ 
9Z@ IF MN=ii THEN &40 
[4@ TF H=£ THEN 7ae 
95@ IF N=22 AND E(24:=-1 THEN EC24)= 


95@ Et(N)>=A:GOTO 67@ 

970 PRINT "You deo not have enough sn 
eray ta do thatin the thin atmospher 
2.":60TO 2ea 

990 IF Etho<2A AND ECN)<?>@ AND FEC(N) 
z—1 THEN 68@ ELSE IF M<?& AND NC2is 
AND N2>bis AND Nite? AND N¢eoea THEN F 
RINT "I see nothing worth taking not 
@ of.":SCTO 280 

99@ TF N=22 THEN FRINT “The ground i 
S prepared for the slanting cf scme 

seeds.":GQTO 2eea 

19@@ IF N=2=2 THEN PRINT “There is a 

button hole in the jacket":SOTO 2oee 

1@1@ IF N=14& THEN PRINT "To cpen the 


alr lock, it must be raised":GCOTO 2 


1@2@ IF N=12 AND ECN)< >A THEN 48@ EL 
SE IF N=it2 THEN PRINT “Some fish are 


Dynamic Games - Amstrad 


swimming about on the other sid 
2e@ of it":SOTO 2ae 
1928 IF ECM <>A THEN PRINT "I do not 
see him here. ":GOTO see 
144@ EC&)=-2:sPRINT "He gives you som 
ething te help you cope with the atm 
asphere":60TO 208 
1@5@ IF N¢>? THEN 448 
196@ IF ECN)< SA THEN Lesa 
te7a@ IF U=@ OR '=46 THEN PRINT "You w 
ere no match fer the GLADIATOR": GOTO 
240 
198 E(7)=-2:FRINT "You had just sno 
ugh energy to defeat theGLADIATOR.": 
SOTO 2ee 


199@ IF Ne>4 AND N<>@ OR H=6 THEN 44 


11@6 IF E(N?<>A THEN &80 

111@ IF N=4 THEN Me>17 THEN 11406 
1120 IF '!=46 THEN FRINT "You do not 4h 

ave encugh energy.":GOTO 2ao 

1120 E(N?=-2:PRINT "You have cpened 

the old docr.":GOQTQ 200 

114@ IF E(9)<>@ THEN PRINT "I cannot 
de that...yet":G0TO0 209 

115@ PRINT "The locker opens...and c 

loses." 

116@ IF EC2)=-2 THEN E(2)=A: PRINT "S 

ame diving gear fell scut." 

1179 GBRTQ 24a 


119@ IF N¢>2 AND N<>2S AND N<>24 THE 


49 


Dynamic Games - Amstrad 


50 


& 
119@ TF ECN}=-1 THEN PRINT "To am alr 
dv wearing it.":GO0TN 2ee 
12@0 IF ECN)<>@ THEN 49@ ELSE IF N=2 
4 AND EC22)<2-1 THEN 7ee 
1210 IF N=24 THEN FRINT "The ficwer 
ives off a sungent sdcur, but doe 
Ss not harm vou. "ZE(N2=-1250TC 2ee 
2@ E(N)=-1:G0OTOQ 474 
122@ IF N¢>i@ THEN 4640 
1246 IF ECN)<>@ THEN 69@ 


125@ E(NI=-DESPRINT “"O.K... Rut at was 
meant to be far some animals.":G0 
TO 200 


1260 IF Nesii THEN 648 

1270 IF ECN)<>A THEN &8@ 

1280 IF Eti@)<>@ THEN PRINT "TI have 
nothing to feed it with.":GOTO 29 
1290 E(L1@)}=-2:E (LL) =@:PRINT "The ECR 
LLA follows you in the hope of get 
ing mcre fscod.":S0OTO 2a 

13@6 IF Ne«>t THEN 448 

Z1@ IF ECN)<>@ THEN 6928 

1220 IF Act1z THEN PRINT "I see nao op 
ce to insert it.":GOTO 2ee 

Z3@ E(L)=-2S:PRINT "The additian ts 
the reactor of more fuelhas stabilis 
ed it."sGSOTO 2e@¢ 

12460 IF N<t1i4 THEN 648 

125@ IF ECNP<SSA THEN 686 

126@ IF A=246 AND E(15>?=@ THEN A=25: 
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(MI=A:GOTO 467@ ELSE IF A=24& THEN A=2 

JrECN) =A: GOTO 47@ ELSE IF A=25 THEN 

A=26:E (NM) =A: GOTO &7@ ELSE IF A=27 TH 

EN A=246:E(NI=A:ECTO 470 

t27@ LOCATE 4, 22:FPRINT "ARE YOU SURE 

>? {Ys/N)" . 

128@ IF INKEYS="V" THEN 94@ ELSE IF 

Q8="N" THEN 2em@ E!LSE 1278 

129@ IF NetisS THEN 4640 

14@@ IF Ac>24 THEN 4688 

1419 IF ©£(15)4>@ THEN PRINT "I have 

nothing with which I can operate the 
~"aising mechanisn.":G0TO 220 

1429 IF E¢2)<5-1 THEN PSINT "You hav 
@ drowned in the water that has flo 

cded the air lock.":GOTO 9240 

1420 Y=15@-W:IF Y>X THEN X=¥ 

144@ PRINT “You have managed ts reac 


h the surface and your diving ship 
- WELL DONE!!! I": PRINT:PRINT: PRINT " 

SCORE: "3Y¥;" BEST SCORE: "2X:GOTO 
240 


1450 IF N<>27 THEN 648 

146@ IF ECN)<>@ THEN PRINT "I AM NOT 
CARRYING THEM.":GOTO 20@ 

1470 IF Ac?4 OR H=46 THEN PRINT "I se 

eB no solace tc plant them.":GOTO 20@ 

1486 E(NP=-25E (28) =A: PRINT “The seed 

Ss grcw quickly and form tall bamb 

so plants. shaped like nole vault 

sticks. ":G60TO 2ee 
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2490 IF Net2o THEN £40 

15@@ TF Ac ?7 THEN 68@ 

1Ei® TF E429) 4>0 THEN PRINT "“T have 
nethinge to vault with.":GOTO 2eo 
1529 A=1@:PRINT "You manage t2 vault 
the wall.":GOTO 2608 

152@ DATA DETENTION AREA, INDOCTRINAT 
TON BUILDING, SPORTS ARENAS. BARREN GRO 

WND.,BLOCKED EXIT FROM ARENA. ADVANCED 
FART MF THE CITY 

154@ DATA PRIMITIVE PART OF THE CITY 
CLD FART OF THE CITY. GARDEN WALKWAY 
»FOOD GROWING AREA.,CENTRAL DOME.ATLA 

NTIAN LECTURE THEATRE 

155@ DATA NUCLEAR FUSION FOWER REACT 

NR.WATER HYDROLYSIS AREAL, ATLANTIAN R 

ADIO STATION.BORDER OF CITY 

156@ DATA PASSAGE QUT QF KTNGDCM.SLA 

YE LABOUR FON. ANIMAL SFECTMEN CENTRE 
~UNDERWATER OPSERVATION FOINT 

157@ DATA FORBIDDEN ZONE,EQUIFMENT S 

TORAGE AREA. MUREY LAGOON. AIR LOCK. ST 

EEP INCILINE.CLIFF FACE.,CLIFF TOP 
158@ DATA @.1.1.8.9%,@,2.—-2,2,7.9.0,0 


2,0.8 


aeons 


@,-3,%.0,0,.%,9,9.-5,2.9 
598 DATA BBe—be=t F840, Oe Me Fe =2, 
iP C0 2 ee 2 0 Se 2) 

14@@ DATA 1,0.2.8.9, Pee Pee ee ee 
34 4.-4,4,-4,8,-5,0, 5. 2, 2.0,0.0.9,08 
161@ DATA @,—1, 2.7, -2y FO. 0,724.94, 


32825,4.-4,9,-4,.0,9,9%, -2,-2.8.9.0 
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1620 DATA NSO. EAS, WES. S.TALPILDVLE. 
TUL FTLEX, ER, SE. 9. PUL UL WEA. EAT. FE, ? 
.£-9.R, PLY oo a 
1428 DATS NORTH, SOUTH, EAGT. WEST. SET. 
TAKE. PICK UP DROP, LEAUE, THROW. MILL. 
TIGHT, EXAMINE, FSISk. SEARCU, OPEN. PUSH. 
UNLOCK, WEAR. EAT. FEED. INSERT. CLIMP. aU 
TT, SAISE, PLANT. VAULT 
144 DATA HY,D.FULLO.AT.SC.GL.AL.MA. 
FR EO. SEA. TR. HAL AT. O.MI.WAR.OR.SL.G 
R.J,FL.LE.8. SEE.P.WAL. ME 
{45@ DNATA HYDROGEN. DIVING GEAR. FUEL 
SLOT, LOCKER. ATLANTIAN, SCIENTIST. GLAD 
TATOR | . 
1460 DATA OLD DOOR. MASTERS KEY.ERINIT. 
GORILLA.SEA MONSTER, THICK GLASS. ROFE 
LADDER: | | 
1674 DATA HANDLE.AIR !OCK. CHAINS. MIC 
ROPHONE. WARRIOR. ORE. SLEEPY ORG. GROUN 
ND. JACKET. FLOWER. CRAZY LECTURER 
1484 DATA BOOKLET, SEEDS. POLE vauLT.w 
ALL.METAL ROD 
1690 DATA 14,-2.12,22.1,2.3.5.8,10,. 2 
2,21, 28. 25.27.24, 19.15. 16. | 
9,12,11.-2,-2,7.22 


17@0 REM*EKXKX*XARRAYS KXKKK 
a 


1719 DIM L#(27):FOR T=1 TO 27:READ L 
$(T) sNEXT T 
1720 DIM AC27),8(27),0(27) ,9(27) 


i729 FOR T=1 TO 27:READ ACT) NEXT T 
1740 FOR T=1 TN 27:READ BCT) :NEXT T 


53 


Dynamic Games - Amstrad 


175@ FOR T=1 TQ 27:READ CCT) NEXT T 
76@ FOR T=1 TQ 27: READ DCT) :NEXT T 
177@ DIM BE(27):FOR T=1 TQ 27:READ B 
( 


1780 DIM C#(27):FOR T=1 TO 27:READ C 
*(T)2MEXT T 

1794 DIM ES(Z@):FAR T=1 TO Z@:READ G 
S(T):NEXT T 

12@@ DIM H$(Z@):fOR T=1 TO Z@:READ H 
@(T)2NEXT T 

121@ DIM E(2@):FOR B=1 TO Z@:READ E¢ 
EY :NEXT B 

1870 RETURN 

1820 REMAKXXLOSEX*Xx 

184@ ERASE #.A.P.C.D, BS, C8. 68,HS.E 
185@ INK 1.@:PEN 1 

186@ CLS 

187@ LORATE 1.4 

1820 SOR XX="@ TO 90m STEF S@ 

189@ SQUND 1,XX:SQUND 2,XX-S:SOQUND = 
a XX+5 

19@@ PRINT “YOU HAVE FRUND DAVEY JON 
ES? LOCKER, RIP": 

1910 NEXT XX 

1924 RELEASE 1:RELEASE 2:RELEASE = 
19Z@ SOUND 1,1@@@.2@@:SOUND 2,10@5,2 
M@2SCUND 2,995, Zee 


1940 RETURN 
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THE STEINBERG 
FILES 


This adventure requires you to collect the files of the miss- 
ing bacteriologist, Richard Steinberg. No-one knows where he 
has gone, but his life’s work is hidden in the office block of 
United Chemicals, his former employer. The Organisation have 
contacted you, given details of the mission, armed you with 
a Walther PPK and a fairly old bullet proof vest and has driven 
you to the front of the Office Block. From here on, it’s all up 
to you... 

Pretty stirring stuff. This is a very tough adventure. It can 
be solved but it will take you a long, long time. I’m not going 
to give you any hints at all, save one. The building is patrolled 
by armed guards trained to shoot on sight, so be careful. 
Remember, it’s the secret papers you are looking for. Nothing 
else matters except you getting them. 

You enter commands in the standard ‘Verb Object’ form. If 
you try one command and the computer appears not to 
recognise it then try a different word which means much the 
same thing. The computer has vocabulary of more than 30 
commands. 


19 SEMA**kxTHE STEINBERG FILESKeXkx 
Ze REMCES TEXT ADVENTURE GOK OOK 
3 MODE 1:INK @,26:INK 1,9:PEN 1 

4 GOSHE 197@:GO0SUE 1676 

EG SEMAXIXMAIN LOOPKEK# 

6@ SOUND 1, INT(RND*4@@)+20,9.2 

7% BORDER INT CRND*24) 

3@ ST=ST-1:1F ST=0 THEN 1470 

90 FEN 1 

1@@ CLE:FRINT:FRINT"YOU ARE IN "sLe¢ 
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11@ IF L=7 SND L(17)=@ THEN 1290 
12@ IF L=?7 AND L(17)<>@ THEN 145¢ 
120 PRINT: PRINT 
140 IF L=29 THEN PRINT "YOU ARE ON T 
HE TOF FLOOR" 
15@ SQR M=1 TO 4:IF P(L.M)=-1 THEN P 
RINT “LOCKED DROR TO THE "IMIDE «Ds, ( 
SeM)—-4.5) NEXT M 
160 FEN 2 
178 S=@:PRINTsPRINT"YOU HAVE: "3 

TF D=6 OR D=9 OR D 
=1G@ OR D214 THEN Ag="_" ELSE Ag=" A 


19@ ITF §>0 AND L(D)=@ THEN PRINT TAB 
2oe@ IF L(D)=@ THEN PRINT A¢:08(D)2S= 


22@ NEXT D 

220 PRINTSPRINT 

228 PEN 1 

240 ZT=@:FRINT "YOU CAN SEE:": 
2o¢@ FOR D=1 TO 18:I1IF D=é6 OR 
=10 OR D>t4 THEN AS=" " ELSE AS=" A 


TH ae 
i} 
5 
Oo 
Pa) 
3 


26 IF L(D?=L AND Z>@ THEN FRINT TAB 


is ip 
27@ IF L¢DI=L THEN FRINT AGsO0S(D):2Z= 
744 


=@ THEN FRINT “ NOTHING MUCH 
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Z@@ IF Gi=L THEN PRINT:PRINT:INE 1,4 
: “RINT “GASP' S SECURITY GUBRD":D 
C=PC-1:1IF OC=@ THEN 1478 


I 
TRINTS INGOT "WHAT NOW": N¢ 


2408 &F 

Th@ GCOSUE 1406 

24@ IF i=l AND Tetiz AND T2214 AND 
TES? THEN 40a 

270 ITF T:9f BF Tei THEN ZC=INT (RND*4 
PKBsPRINTSSRINT TAB (CLD) sMIDEe (Fé, ZC+1 
28):50TN 298 

738 ON T SOSUEB 469, 460,540,540, 546.5 
70, 729, 790, O10, 940, 240, 860, 1400, 1@00 


1498, 119@, 113@,112@, 1199, 1210, 


s+ Pas 


29@ FOR TT=1 Th E@@:NEXT TTsIF Taz T 
HEM 4Fe@ 

400 TF Gil=l THEN PRINT "THE (SUARD FI 
(SHTS BACK..." 

41@ LOMATE 123,25 

420 SEN 2 

420 PRINT "“SRESS ANY KEY" 

44@ WHILE INKEYS=""sWEND 

450 GOTO Se 

469 REMKXX*XCOMMANDS *x Kx 

474 If LEFTS(CTS$.1)="N" THEN K=1 

48@ IF, LESTS(CTS,1)="S" THEN F=2 

49% IF LEFTE(CTS,213="E" THEN K=2 
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Oe TF LESTS (CTE, L32="W" THEN k=4 

Sie NeLELeP UL. i) 

StH TE Lt THEN ERINT “YOU CANNOT ©O 
THAT WAY" :L=N 

Sie RETUSK 

fae OV=a 

SSe@ FOR CT=1 TO =4 STEP 

JOT. 2) =LEFTS (CTS, 3) TH 


Vad 


EN DV=CT 

S74 NEXT 

S@e (T=(OV42) 472 TF DV=@ THEN T=1@@:R 
E TURN 

H9°m IF S24 THEN FRINT “YOU MUST DROF 
SQMETHING FIRST": RETURN 

6a@¢ TF “(2T=8 OR CT=12) AND S>2 THEN 
PRINT "TO (MARRY THE "se cCTis" you c 
AM CMLY" SPRINT “"CASRY TWO QTHER ITEM 
S$.“ 3s NETUAN 


624 IF LCCT)<2L THEN PeINT “IT IS NO 


62% TE CT=2 OR Ct=ti THEN FRINT "DON 
*"T BE A FOCL, If*S TRO HEAVY BY FAR. 
“SRETURN 

626 TE LCi7) == THEN ST=2E:G0SUE 28a 
S4@ IF t¢t7>=i THEN FSINT “THE ALARM 
S HAVE SCQUNDEDR, YORU HAVEN? T MUCH 
TIME"sL (17? =@: RETURN 

62@ TF CCC aL THEN L¢(CT}=@:PRINT "¥ 
OU ARE NOW CARRYING THE "sO#¢(CT):RET 
‘SRN 


660 IF L== AND CT=17 THEN PRINT "THE 
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Y ARE fT OF REACH": SETURN 
S70 DOV=Q:FOR TT=1 TQ 24 STEP F:IF Le 


FYE (LTE, Z=MIDSE (0E,CT.2) THEN DY=CT 
6£2@ NEXT CbsOT=(DV+2) /2Z2 IF DV=@ THEN 
T=10@: SETUBN 

6£9@ [F ©=0@ THEN PRINT "YOU HAVE NOTH 
ING TO DROP": SETURN 

7@@ IF LICTy<s@ THEN PRINT "YOU DON? 
T HAVE IT TO DROP": RETURN 

7i@ ILCCTI=LIPRINT “YOU HAVE DROPFED 
THE "sO (CT) :SETURN 

72@ IF L¢B)<3@ THEN PRINT "IT°S Toe 
DARK TQ READ! ":RETIRN 

720 IF £(4><¢3L AND L(17)<3L AND L«1e 
Yeel AND L(4)2°@ AND L(L7)22=@ AND L¢ 
18)<2@ THEN PRINT "THERE IS NOTHING 
TO READE" 

74 IF £(4)=L THEN PRINT “READE: "s:F 
EN Z:FPRINT'TELVSRITEAHQMYECEAENHWSRO 
"SEEN 1 

7EQ@ IF _¢4)=L THEN PSINT “IT°S WRITT 
EN IN CODE, YOU NEED THE COMPIST 
ER TQ DECODE IT" 

76@ IF L(18)=L THEN PRINT “DON’T WAS 
Te YRUS TIME, THEY* SRE THE accou 
NTS OF THE COMPANY... EXTREMELY DULL" 
77@ IF ‘“LCi7.=L THEN PRINT “YOUR JOB 
1S TR STEAL THEM NOT TQ READ THEM. 
“SOUND 1.4400, 12,15 

72@ PRINT: SRINT'PRESS ENTER TO CONTI 
NUE“: INPUT L¢:RETURN 
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797@ IF (¢2@)=@ OR L¢iL2)=@) AND (CTé= 


"CAD" OR CTS="STO") AND L=Z THEN FRI 
NT "YOU (TAN REACY THE SECRET-FSFERS 
NOW'sL (17> =f: RETURN 


SMe TF L=6& THEN FSINT “YOU CANNOT CL 


IME OVER THE FENCE": RETURN 


S14 IF L=6 AND L(4)=7£ AND L(9)=@ AN 
D CTEs"FEN" THEM PSINT "THE FENCE HA 


(ap) 


KEEN CUT, YOU CAN GET OUT BY SOING 


NORTH" SP CS. 1) =73 RETURN 


82¢ IF L=4 AND L(6)<>Z5 AND L(9)=0 A 


ND CT#="FON" THEN PRINT "YOU CUT THE 


FENCE SIT SOREOT IT WAS ELECTRI 
C...YOU HAVE BEEN FRIED! '!'":SOUND 1, 
1%, 150,18:G07T0 147¢@ 


Sie RETURN 


94 IF L=2@ AND MT¢t="MCNEY" AND Ltig9 


)=@ TYUEN PRINT "THE MACHINE ACCEPTS 


“HE NOTES AND CHANSES THEM INT 


2 A SINGLE COIN"s NF¢19) ="COIN" Ss MIDE ¢ 
O#, 228.2. ="lO1"s RETURN 


25@ FRINT "THIS MACHINE CHANGES MONE 
Y (in nstes?) INTO COINS. IT DOES NOT 


HING ELSE": RETURN 
26 DDV=@:FOR M=1 TO 4:1F FC(L,M)=-1 
THEN DDV=t 


B7@ NEXT MsIF DODV=1 AND L(i4)}=@ THEN 


WVskVv4t 
Bee IF KY=Z THEN FY=@sb 
"THE KEY WAS OLD AND YOU USED IT TO 
{) OFTEN, IT HAS CRUMBLED INTO DU 
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(143 =Z27:2FRINT 
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ST’ :RETURN 

290 IF DODVE>1 OR Lita .<e@ OR CT$er"D 
OO" THEN 96a 

Qaa PRINT "WITH A MREAK. THE DCOR OF 
ENS...":GCSUPR 2140 


91@ TF L=19 THEN P(19,2)=198:P(18,1)= 
920 IF L=2 OR L=27 THEN P(2,1)=27:P ¢ 
L=16 OR L288 THEN P(28,.2)=16: 
94@ IF L=21 OF !=22 THEN P(22.2)=21: 


95@ RETURN 

96@ IF L=19 TYEN PRINT "YOU ARE TRAF 
FED INSIDE THE VAULT": IF L(L4)<>@ TH 

EN 1478 

97@ IF ODVE>1 THEN PRINT "THERETS NO 
COCR TO VWNLOCK FOCL'!":RETURN 

92@ TF L(t4)<>@ THEN PRINT"YOU DON?T 
HAVE THE KEY":RETURN 

99 T=1¢@: RETUSN 

19@@ IF (S=1 AND Gi=L AND L(1)}=0 AND 
LEFTS (CTS, 2) ="GU" THEN 1@é0 

121 IF Gicsl THEN PSINT "THERE IS N 
0 GUARD HERE!" 

ta@2@ IF £¢61)<2>@ THEN FRINT “YOU HAVE 
NOTHING TQ FIRE WITH" 

teze IF LEFTS(CT$,2)<>"GU" THEN PRIN 
T “WITH WHAT?" 

im4@ IF !.¢1}=@ AND Gi=L AND !EFTS(CT 
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#.2.="GU" AND (2S<2>1 THEN PRINT “you 
KILLED HIM BUT THE GUNSHOTS HAVE 


ACTIVATED THE SQMNIf ALARM...YOU HAVE 


TTLE TIME TO ESCAPE"ST=15360SU 


it 
r3 
x 


PGI=INTORND29)49:TF Gist OR E 


1@5@ RETURN 

1@60 IF SND¢@. 22 THEN PRINT "YOU MIS 
SED HIM":RETURN 

197@ PRINT “YOU FILLED HIM": 
PyY+S TF (E1=L CR EL=2E OR Gi=7 THEN 1 
Wa 

1@ee RETURN 

1699 POINT "TIME PASSES..."sFOR TT=! 


ros 
u 
mn 
2 
ise) 
rn) 


TA SO@@2NEXT TTsRETURN 

1140 IF LEFT# (CTE. 2)2>"COF" OR Li>4 
THEN FRINT “DRINK WHAT? ARE YOU INSA 
NEO" Ss SETURN 

111@ IF L=4 AND L¢7)4>@ THEN PRINT " 
YOU HAVE NOTHING TR DRINK FROM": RETU 


1120 PRINT “vue! IT TASTES AWFUL, RU 

T WHAT DO YOU EXPECT FROM AMACHINE 

2": RETURN 

1150 IF €(2)<>@ THEN PRINT "IT?S TRO 
DARK TO LOOK ARQUND Of SEARCH": RETU 


114@ IF L=2t THEN PRINT "THE SECRET-P 
"PERS ARE ON THE TOP SHELF": RETURN 
1L&@ IF L=21 THEN PRINT “THERE IS A 
COIN LOC! ON A TOILET DOOR": RETUSN 
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£0 IF L=2 THEN PRINT "THERE IS A IL 
DOOR WESTWARD. IT IS CONTRO 

ED VIA A CENTRAL COMPUTER, THE ONLY 
FOSSTBLE WAY TO OFEN IT IS TO 

MALCULATE IT75S SYSTEM CODE": SETUSBN 
117@ IF L=22 THEN PRINT "THERE IS A 

SIGN S4YING TO GQ WRF. ENTER ’GO WN’. 
ONCE WR. TO &Q DOWN. ENTER 7&0 S&?*. 
(TYPICAL BUSEAUCRATIFC DIRECTIQNS'>" 

sRETURN 

118@ PRINT "I?M LOOKING. BUT THERE’*S 
LITTLE TO SEE“: RETURN 

1190 IF 1.¢6)=@ THEN PRINT “THEY FIT 

YOU FERFERCTLY":6¢="YOU ASE WEARING G& 

LOVES*:! (6) =27%: RETURN 

1200 PRINT "YOU ARE WEARING ALL THAT 
YOU OWN": RETURN 

121@ TF I05)=0 AND RIGHT# (CTS, 4>="ME 

MO" THEN PRINT “THE MEMO READS..."3F 

DR T=1 TO Feee:NEXT TsPRINT “THE GIO 

VES ARE IN THE WASHROOM": RETURN 

12208 IF '.45)=@ AND L=2 THEN FRINT "T 

HE ANSWER TO THE DOOR LODE HAS BEEN 

FOUND. JUST ENTER *GO WEST? "sF(2,4)= 

S2F C2, 2) 52:2 RETURN 

i220 PRINT “HELP YQURSELF. NO CLUES 

FROM ME": RETURN 

1240 PRINT: INFUT "HAVE YOU REALLY HA 

) ENQUGH"s AS 

1250 IF LEFT# (AS, 12="¥" THEN PRINT " 

Qe. YOU HAVE GIVEN UPL... "sMODE @:FST 
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NT COWASD !"'s END 
1240 SETUEN 
1279 IF LEFT#(CT#, 2 >="GUN" OND MIDE é 


-- 


Ne, So. GS STLENCER” AND L412>=a@ AND 


pe ee ye 


‘$yse TUES | 


SGSteRPhrn? “THE St 
S ATTACHED, MQW YOU CAN cy 
TLY" S RETURN 

12230 IF LEPTSe(CT¢#¢. SZ) ="LOC" SAND MIDE 
NESE, 42 HS"COCIN" AND CC=t AND 1=Di TH 
N PRINT "THE DOOR SWINGS DFE, REVCA 


LING A FAIR OF SLOVES's!_ (Sy) =21sSETY 


2290 ERINT “YOU CANNOT PUT THAT THER 
EP's RETURN 

1700 IF Gist THEN i22o 

t71@ PRINT “TUYERE? S NO ONE NEAR YOU 
NIRM 

272@ INPUT “WITH WHAT" sWe:s IF LEFTS (W 
#.4)="WIRE" SND L(9)=@ AND RANDS OLS 
rH4EN POINT "THAT GOT HIM! ":61=8 
1FTe@ IF Ws="S0FE" AND 1.(14)=e@ AND RN 


N¢@,8 THEM PRINT "THAT FINISHED HIM 


al 
rr 
4 


NEF I" Et=6@ 


1740 IF LEFTS(WS, 4) <2"WIRE" AND Wee > 
"GOPS" THEN 


1275@ IF Hi=@ THEN GL=INT CORND*22) 4 


ATTA 
Re a 


“0 
© G1=22 OR GisL OR Gis7 THEN 17Ee 
12é6@ RETURN 

1270 POINT "YOU WILL HAVE TO FIGHT 
ITU YOUR BARE HANDS... ":1IF SNDa.8 


& THEN PRINT “VOU KILLER HIM":52=0:6 
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ATA 1256 


y 


122@ RETURN 
179@ PRINTIPRINT "YOU WERE teeay% Succ 
EESF! ON YOUR MISSTONAND THE ORGANI 
SATION WILL KINDLY LET YOUKEEP THE © 
BJECTS THAT YOU HAVE COL!_EcTED" 
14@@ FOR T=1 TQ 19:READ A(T) :NEXT T 
141@ FOR T=! TO 18:IF (7)=0 THEN FS 
INT O#(T32" WOETU #2 Q(T) 
14d@ NEXT 7 | 
14270 PRINTIPRINTIPRINT "ASA\AANSEXCE 
PT THE SECRET PAPERS////////" 
144@ LOCATE 1,24:END 
145@ PRINT “YOU'RE SAFELY AWAY BUT W 
TTHOUT THE PAPERS. THE ORGANISA 
TION IS NOT PLEASED. THEY AVE SENT Y¥ 
Ol) BACK AGAIN" 
t4é@ WHILE INKEY$="":WEND: RUN 
147@ REMAX*KXFATLUREXKKXX 
1420 BORDER @:INK 1.¢ 
1494 CLE=LOCATE 4.8 
150@ PRINT "NO ONE FAILS THE CRGANIS 
ATION AND ILIVES TO TELL THE TALE..." 
1519 FOR V=3@@ TO 900 STEF 2a 
1520 SOUND 1.4 

30 NEXT V 
SOUND 1.2000,250,15 
MQDE @:INK @,@:PEN Zz 
LOCATE 8.12 
PRINT “R.I.P" 
LOCATE 14,24 


iu + 
oS © 


os ee ee > a > roe 
on oon ih wn Oth 
“J oD 
a o 


CO 
oS 
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15°@ END 

16@@ REM*****COMMAND HANDLING &*#x* 
1610 T=i:IF LEN(N#S)<3 THEM T=1@@:RET 
URN 


142 BE=MIDS(C#e.T.2 


-one ss 


i] 
Tt 
ag 
i 


>) LEFTS (N¢. 
3) THEN T=(T+2)/Z:E0T0 145% 
1430 IF T2@7 THEN 16 
164@ T=T+E:G60T2 1420 
145@ FOR CT=LEN(NG? TO 1 ETEP-ts IF M 
ID@(NS.CT.1)=" " THEN CTS=MIDS (NE, CT 
1,2) ELSE NEXT CT 
166@ RETURN 
2670 REM*XKKINI TIAL ISAT LON KX & A 
169@ DIM 02/419) .L8(3@),F¢7@,4),L (18) 
2A(18) 
16£9@ FOR T=1 TO 18:8EAD QO (7) NEXT 
1700 FOR T=1 TQ Z@:READ L#(T):NEXT 
171 FOR T=1 TO 19:READ L(T):NEXT 
172 DATA GUN, TORCH, COFFEE-MACHINE, 3 
CRIBRLED-MEMO.FOCKET COMPUTER. GLOVES 
_ UP, STOOL, WIRECUTTERS 

DATA MONEY, COIN-MACHINE, S1LENCE 
R, LADDER, KEY, PAPER-C!_IPS, RCFE. SECRET 
-PAPERS, PAPERS 
1749 DATA THE MAIN ENTRANCE, THE SECE 
PTION AREA, THE DOCUMENT ROOM,THE STA 
EE CANTEEN, THE DELIVERY RO0M 
17=@ DATA A CORNER OF THE YARD NEXT 


TO AN ELECTRIC FENCE, THE ALL 
EVWAY BEHIND THE COMPLEX - A PAR 


IS WAITING 
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2 DATA THE COMPUTER ROOM, THE MAIN 
NANCE ARES. A DARK CORRIDOR. THE KE 
CORDS DEPARTMENT, AN UNTIDY OFFICE 
177@ DATA THE TYPING POL. THE SECREA 
TION ROOM.A NABROW CORRIDOS. 3 FLUSH 
CONFERENCE ROOM, AN UNLIT OFFICE 
178 DATA THE STRONGROGM NEXT TO THE 
VAULT, THE STEEL VAULT. THE ACCOUNTS 
DEPARTMENT, THE EXECUTIVE WASHROOMS 
1798 DATA A COLD BARS ROOM.A DARK CO 
RRIDOR.A CLEAN NEW STORE RCOM,A LARG 
E CUFPPOARD,A BRIGHT HALLWAY 
180@ DATA THE TELEX ROOM,A LIFT, THE 
DIRECTORS BCARDROCM,A SFACIQUE OFFI 
S 
1810 DATA @,2,4,.27.9-23, 25, 13,9,19,2 
O.2O,5,1@,12.11.24,12 0” 
1820 D¢="NORTHSOUTHEAST NEST" 
82@ C#="GO MOVTAKGETSTEDROREACL ICHT 
CHAOPEUN!F IRSHOWAT DRISEALDOWE ACOMCAL 
DECHELCLUQUIPUTHITFIGATTEIL" 
194@ N$="GUNTORCOPMEMCOMSLOCUFES TOWIR 
MONCOISILILADKEYCLIROFSECEAF" 
185@ PS="PARDON? WHAT? = RUEBBISH'REF 


1260 Laiilh (1) sO: =O: ST=100@0:KY=0:65 
1870 RANDOMIZE TIME 
198@ Gi=INTCRND*2e) 

7 THEN 1ege 
189@ DC=INT(RND*S) +4 
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19@@ FOR X=1 Ti Ze:FOR VY=t Th 4:READ 
SCX, VY) sNEXT:s NEXT 
191@ DATA 2], @,4.-1,1.4,¢,49,9.2,9,0 


s 
10.9, 2.9%. 15.5.0.0.0,5,8,%,0,@,0,15, 


24,,71.20,8.12.9 
1920 DATA 4.@.9.1.9,27.14,.12.17.@,11 
[ — 


o14.15.0,0.9, 26.@,19.11,5.8.@,21.-1, 


7217.26.27. 12-1 
ae bag ew ees ta Lig 


19Z@ DATA 19,20. 19,14.0,-1.9.%,18,9, 
M.0,2,17.9.-1.0,17.-1. 23, 1S. 27.%,17 


2,0, 26£,12,0,0,0,27 


faethe ace wg 


194@ DATA 4.14.9, 24,.11.-1. 25.12.29, 1 
6.%, 8. 28.0,8. 20.8.8, 29,4 
195 DATA 90,19.0,1,200.2,2, 14, 22.0, 


10,48, 10,1,27,. 1ae@aene, 2 


1960 RETURN 

1970 CLS:NNsS="THE STEINBERG FILES." 

19986 LOCATE 7,15:PRINT "A FULL-SCALE 
TEXT ADVENTIRE" 

2199@ LOCATE 12, 2@:2PRINT CHRS (14405 ". 
1994 C.GIFFORD" 

2600 FOR F=1 TQ 2 

2019 FOR T=1 TO 2@:LOCATE 1@,i2 

2920 PRINT MIDS (NNE. T.21-T) 

2920 LOCATE 2i-T,12:FRINT LEFT (NM¢, 
T) 

294@ FOR DL=1 TO S@:NEXT DL 

2@5@ NEXT TsNEXT F 

2@6@ LOCATE 1@.,12:PRINT " "“s:WHILE I 
NKEY¢=""sWEND: RETURN 

2270 REMAKE*XKKXSOUND FXEXKKEX 
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REM***XEXSTREN/ALARMEKEXX 
FOR T=1 T2 6 


SCUND 1,10@:SOQUND 2,1@@:SOUND = 


EQUND 1, 2@@: SCUND 2, 2e@e@: SOUND 


tod 


NEXT T 
RETURN 
REM*X*kXRTSTNE TONEX** eK 
REM****EOR DQOR CREAR 


FOR G=98@ TQ 74@ STEF-16 
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CHARACTER 
GENERATOR 


This program will be very useful if you play adventure games 
on boards. This program creates characters, so often used in 
these games. A name is randomly created along with its height 
and weight and its characteristics such as dexterity and 
intelligence. 


LQ REMKKKKKKKKKKK KK KKK EK KKK KEKE K KKK 
2@ SEM**x**x*xCHARACTER CENERATORXX**x 
2@ REMAX*X**kFOR ROLE-PLAYING GAMES**xx 
40 REPO OKOK Kok ok ok KK 


=@ GOSUB 426 
6@ RANDOMIZE TIME 
74 D=@:FOR X=1 72 83 
86 GOSISB 29@:IF X>2 THEN 1108 
9@ IF ACX? 212 THEN D=D+A(X?-12 
1m@ IF ACXI<9 THEN D=D+A(X)-9 
210 NEXT 
126 X=9:GOSUB 298 
127@ IF APS(A(8?-A(9)) 22 THEN 120 
14@ T=isFOR X=1 TO 5 
15@ IF ACX)<12 THEN 189 
16@ NEXT X 
17@ T=4:GOTO 229 

T 


F &4(2)<1@ OR ACS248 OR ACIDE T 
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19@ IF AC2)5ACZ) AND AZ) >ACL)? THEN 

ame IF ACLISrAC2Z> GND A(t} >5ACZ>) THEN 

2i@ ITF ACZY SACL? OR ACZPSA(2) THEN T 
Sle ACF =AT) KIA 


8) =A(8)-2:A(9)=A(9)-2 


A ( 
2oa@ GOSUE 278 


27O PEINT. “TYPES sTS6F} 

200 FOR xX=a TO 6 

2°02 PRINT MIDS(AS. C2EXI+1,03>3" "3A 
Cx+1) 

ZaQ NEXT X 

Z1@ PRINT "HT. s"sINTCH(A(S))/12)5" 


FY MSHCA(SB22-INTCHCACB) ) S12) 4132 "IN 


in 


TBO PRINT "WT. of "sW0A(9))3 "LBS." 
ZE@ PRINTSPRINT "ADDS: "2D 

Za FOR T=1 TQ 4@@e@:NEXT T 

TEGO IF INKEY#="" THEN 7@ 

zé6e@ END 

Z7@ REMEXXKNAME SELECTIONKE Kx 

280 PRINT FSCINT(RNDELS) 93" "2S8 (INT 
(RND*2E)) RETURN 

29 A(X) =O:FOR Y=1 TO Z 

AG@ ACX)=A(X)+INTCRNDKS) SNEXT ¥ 
41@ RETURN 
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42@ REMKXKXINITIALISATIONKX Xx 

420 DIM T#(4):F5OR T=1 TO 4:READ TS(T 
:NEXT T 

44@ At="ST.IO.LY. CONDEXCHRGLD" 

4E® DATA "HARRIOR", "WIZARD". "ROGUE", 

“WARRIOR-WIZARD" 

44@ DIM Fe (LE), S¢(25).A09) 

47@ FOR T=1 79 15:READ Fa (T):NEXT T 

age ©CR T=1 7h 2S E 

49@ DATA “FRIT", "SCANDOR", “DOGNOSE". 
“CRAYAK", "GRENDAL", "CRUK". "RAC". "MEN 

THEN" 

SO@ DATA "KENT", "SHRILL", "QLAF", "CL 

RI" "FENNEL", "KIP", "GLIME" 

51@ DATA "THE COURAGEOUS". "THE STRON 

GS". "PLOODLETTER", "BONEPREAKER", "OF §S 

NEARGUARD", "THE WISE" 

52@ DATA "DEVILLE", "THE QUICK", "BLOO 

DLETTER", "THE PULPER" "THE REAPER" 

SZQ DATA “OF BORKSVILLE","THE LIQUID 
ISER", “BODYSQUASHER", "SRAINSQUEEZER" 
."IROMFIST" 

S4@ DATA “WIDOWMAKER". "THE DEATHPRIN 

GER", "QETROSS", "WINEGUZZLER" 

55Q DATA "FLESHEATER", "SPELLBINDER". 
“THE MYSTERICUS","THE ANCIENT", "OF & 
ARATOGA" 

S6@ DIM H(16):FOR X=1 TO 14:H¢X2=INT 
(4Q.5+((X-1) *2.5))2NEXT X 

S70 DIM W(t4)sFOR T=1 TO Lé:8EAD WIT 
Y:NEXT T 
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GAMES OF 
STRATEGY 
AND LOGIC 


All of the games in this section were first played a long time 
ago, rather than on a computer. The games have been com- 
puterised to provide you with an opponent that will play 
whenever you want to and play well. 

| must thank Tim Hartnell, the very well-known computer 
author, programmer and publisher for providing the basic ver- 
sions of these programs which were converted to the Amstrad 
computer. Tim has produced some excellent algorithms and 
has kept the programs as short as possible while keeping the 
games as close to the originals and making the computer a 
tough player to beat. 

These games require plenty of thought to play. Touches of 
Amstrad colour, sound and graphics have been added to liven 
them up. I’m sure you will find them exciting and worthwhile 
to play. 
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CHESS 


| must particularly thank Tim Hartnell for this contribution 
to the book. Chess is one of the greatest challenges which 
can face the computer programmer and | think Tim’s effort 
(even if limited, and in BASIC) is highly commendable. The 
combination of moves, strategies and rules in chess is frighten- 
ing to consider and yet all of these must be brought together 
into some kind of logical structure. 

The hardest part of a chess program is to make the com- 
puter play chess properly and to some sort of strategy. Tim 
has included a fair amount of strategy and the game responds 
very quickly compared to many other versions of chess 
available. You have to watch the computer when it plays, as 
it does have some problems getting out of check and does 
not play the best game of chess in the world. Despite this, I’m 
sure that you will agree that it is some programming 
achievement. 

You will see that the pieces are presented on a numbered 
and lettered grid. To move a piece you enter the position of 
your piece (letter and number) followed by the position you 
want to move it to. If you want to end the game, enter ‘S’. 

The game also offers an ‘exchange sides’ feature. You can 
swap sides at any stage of the game just by typing ‘x’. 

If the computer moves into check, this is a sign that it wishes 
to resign. 


10 REMX***¥xX*xCHESSEXXKX 

28 GOSUR 2848 

20 GOSUBR 2874 

40 GOTQ 7@ 

S@ GOSUBE 2612 

£©@ GOSUB 289@ 

7®@ GOSUB 2612 

BO REMEKKXKKKKK KKK KKK KKK KK KK KK EE KKK 
xXx 

9@ IF At="S" THEN END 
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16@ TF Ag="X" THEN PRINT “EXCHANGING 
SIDES": GOSUB 764@:AS="" 

Li@ REM REKKKXKKY EKA KE KKK AK KEKE KKK 
*EKXK 

129 FOR Z=1 TO 16:7(Z)=@:NEXT Z 


14@ PRINT "PLEASE STAND Py..." 

156 FOR Q=1 TN 44:IF A(S(Q))}>=BB AND 
ACS (2) 2. 4=R88 THEN 's=lJ+1:7T(U)=S (0): 1F 
A(S(Q)2=FKRB THEN KEM=S(N) 

16@ NEXT Q:1F UC THEN GOTO 2e5e 

178 6NTO 658 
1€@ FOR Q=1 TN Us: 

TCR =T (U3 TOU) =KM 

19@ NEXT Q 

208 Q=INT CRNDX2) 

21@ IF At="C" THEN Q=08 

22% IF Q<U THEN R=Q+1 

22@ Z=T (fa) sGOSUR 288 

246 ITF MM=1 THEN GOSUB 252@:G60TO S@ 

2u@ IF O<lJ THEN 22a 

26@ GOTN 228e@ 

27Q REMKRKKKKKKKAKKEK KKK EKA KE KK 
xxx 

28@ IF A(Z)=QB THEN GOSUB 920 

29@ IF A(Z)=RB THEN GOSUB 1186 

30@ IF A(Z)=BB THEN GOSUB 1426 

319 IF A(Z)=NB THEN GOSUB 171@ 

z2 IF ACZ2=FPB THEN GOSUB 2246@ 

2240 RETURN 

Z4Q REMKKKEEKKEKKKA EK KAKA KKK KKK KKK 


TF A(T(Q))=KB THEN 
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*KEY 

25@ IF ACX)=1@7 THEN MM=@:Q=+1: RET 
RN 

ZS@ IF X4+9>88 THEN 390 

Z7@ IF ACX4+9)<82 AND A(X+9)>65 AND F 
ND<@.94 THEN RETURN 

7Q@ IF X-11i<it THEN 40a 

29@ IF @¢X%-11)<82 AND ACX-11) 265 AND 
RND<@.946 THEN RETURN 

40@e@ AD=0 

41@ AY=a 

42@ AX=X4+Q(AY+4D) 

4=@ IF AX<11 OR AXY>8AB THEN 46@ 

440 AF=ACAX?) 

45@ IF AP=Q OR AP=R AND RNP @.28 OR A 
F=PB AND RND?@.5 THEN RETURN 

46@ AY=AY+1 

47@ IF AY<S8 THEN 426 

48@ AD=AD+7 

49@ IF ADKS6 THEN 41¢ 

saa Avi 

AX=X4+N (AY) 

IF AX<11 OR AX?88 THEN 54e 

IF ACAX)=N THEN RETURN 

AY=AY+1 

IF AYSO THEN S19 

AY=1 

AX=X+k CAY) 

TF AX<ii QR AX>38 THEN 46o@ 

TF (CACAX)=K OR ACAX?=P) AND RND> 
THEN RETURN 


fd hore 
Ss 5 & 


Be 
S 


ee 
oS & 


co 


> 


2) ee ee a mama 
S 


7 
0 
m 
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69@ AY=AY+1 

61@ IF Ave9 THEN 578 

62@ MM=1 

62@ RETURN 

G4Q REMERKEKH KA KEK KKK KEK KEK KKK EK KK KK 


668 Y=@ 

&7@ Y=Y+1 

&8@ X=Z4+N(Y?3 

69@ IF X<i1 OR X>8B THEN 6@@ 

79]@ IF ACX}=N THEN 1999 

71@ IF Y<S3 THEN 67¢@ 

720 REM OOOO OOOO KKK KKK 


720 D=e 

74@ Y=1 

75@ KM$=STRS (KM): IF RIGHTS (KM. 1)="8 
" THEN K(1)=@:kK (2)=@:K (6)=@ ELSE “(1 
Y=El:K(2)=112K (6) =-9 

7469 X=Z+Q(Y+D) 

774 IF X<11 GR X28 THEN 82a 

78@ IF ACX)=B OR A(X) = OR A(X)I=R TH 
EN 189@ 

79 IF A(X)<>E THEN 92e@ 

Bae Y=Y+1 

81@ IF Y<8 THEN 76@ 

820 D=D+7 

82@ IF B<49 THEN 7é@ 

B4a X=Z+1it 

B5@ IF X>88 THEN 97e@ 
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B6@ IF A(X} =F THEN 1998 

B7@ X=Z-1it 

290 IF x<ii THEN i8@ 

8° IF AX) =P THEN 1998 

Com GOTO 186 

21M REMKEKEKKKKKAKK KKK KKK KKK ERK 
WOK KK 

924 D=e 

92@ Y=1 

24M X=Z+Q(Y+P) 

95@ IF X<11 OR X>@S THEN 1@1@ 

946@ IF AX) =42 OR ACX}>=BR AND ACK) Z 
=RE THEN 1010 

97@ IF ACX)>=B AND A(X)<=R THEN GOSU 
BE 25@:1IF MM<>i THEN 1014 

[8 IF MM=1 THEN RETURN 

[98 Y=Y+!I 

1@@@ IF Y<7 THEN 948 

191@ D=D+7 

1@2@ IF D<42 THEN 92@ 

1@Z2@ RETURN 

1940 REMKKXKEKKKEKEKEKK KKK KEKE KK KKK 
¥KX* 

1458 D=e 

1960 Y=1 

1970 X=Z4+ACcyv+D) 

199@ IF X<it OR X>R88 THEN 1146 

1@9@ IF A(X)<>E THEN 1148 

11@@ IF RND?@.5 THEN GOSUB Z5@:1F MM 
= THEN GOTN 1148 

t111@ IF MM=1 THEN RETURN 
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112@ Y=Y+i 

112@ IF Y<2 THEN SOTO 197¢@ 
1146 D=D+7 

115@ IF D<49 THEN 10666 


L1L7Q@ REMKKXKKKK KKK KKKK KEK KKK KAKKKEK 
x*KKK 
118® D-e@ 
1190 Y=1 
1200 X=Z+R¢(Y+D) 
1210 IF X<11 OR X>88 THEN 1270 
1220 IF ACX)=42 OR A(X) >=BB AND A(X) 
<=RB THEN 1714 
@® IF ACX)>=R AND ACX)<=R THEN GOS 
UB 35@:IF MM=® THEN GOTO 127@ 
12460 IF MM=1 THEN RETURN 
125@ Y=Y+1 
1260 IF Y<7 THEN 120@ 
127@ D=D+7 
128@ IF D<21 THEN 1196 
1296 RETURN 
12QQ REMEKKKKKEKKKKKEKKKEKKKKKE KKK 
XKXX 
1216 D=a 
1220 Y=1 
1320 X=Z+RCY+D) 
1340 IF X<1i OR X>88B THEN 14808 
350 IF ACX)<>E THEN 140@ 
126@ IF RND<@.1 THEN GOSUB Z5 
1279 IF MM=1 THEN RETURN 
izB@ Y=Y+1 


123 
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82 


12908 
1496 
1410 
1420 
1420 
1440 
xxx 
1450 
1460 
14708 


IF Y<7 THEN i122@ 

D=D+7 

IF B<21 THEN 12204 

RETURN 

IF ACZ}<>BB THEN RETURN 

REMEKE KKK KKK KKK KE KEKE KKK KEK 


D=Q 

Y=1 

X=Z+R(Y+D) 

IF X<11 OR X>88 THEN 15408 

IF ACX)=42 OR A(X) 2=BE AND A(X?) 
THEN 154@ 

IF ACX)>=B AND ACX)<=R THEN GCS 


UB 25@: IF MM<>1 THEN 154@ 


be 


me 


rs 
cn cn cn in 


IF MM=1 THEN RETURN 


Y=Y+1 

IF Y<7 THEN 1478 
D=N+7 

IF D<21 THEN 1440 
RETURN 


REM¥ KKK KK KK KA KK KKK EK EK KE KK KKK 


D=0 

Y=1 

X=Z+B(Y+D) 

IF X<11 OR X>88 THEN 1670 

IF ACX)<>E THEN 147@ 

IF RND?@.@5 THEN GOSUB 25@:IF M 
THEN 1670 

IF MM=t THEN RETURN 
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THEN 14600 


IF Be2i THEN 1596 


FREMEKR KKK KKK EKER KK EKK EK KKKKKKEK 


QR X>88 THEN 
=42 THEN 1778 


2=B AND ACX)<= 


THEN RETURN 


THEN 17208 


1778 


R THEN GOS 


REM KK KKK KKK KKK KKK KKK KKK KK KKKKK 


NT CRND*8+1)) 
OR X>BB THEN 
=42 THEN 1820 


=E THEN GOSUB 
OR Y>20 THEN 


1450 Y=¥+4+1 
16456 IF Y<i7 
167@ D=D+7 
14804 

1498 RETURN 
17@@ 

KKK 

1719 Y=1 
1720 X=Z+N(Y) 
172@ IF xX<11 
174@ IF A(X) 
1750 IF ACX) 
UR 350 

1766 IF MM=1 
1779 Y=Y+t1 
17860 IF Y<9 
1799 RETURN 
1B8e0 

*xKxKXK 

181@ Y= 
1820 X=Z4+N(I 
182@ IF X<11 
1846 IF A(X) 
185@ Y=Y+1 
1860 IF ACX) 
1870 IF MM=1 
1886 GOTO 182¢ 
1890 YK=1 
1980 Z=KM 
1910 X=Z+K (YE) = X1=X 
1920 IF X<it 


OR X>@8 THEN 


19206 


25@ 
RETURN 
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1924 IF A(X)= 
82 THEN 2226 

1946 IF ACX)>97 AND ACX)<115 THEN 22 
2a 

195@ Z=X 

1949 Y=0 

197@ Y=Y+1 

198@ X=Z+N(Y) 

1996 IF X<1i1 OR X>88 THEN 2010 

2000 IF ACX)=N THEN 2226 

2010 IF Y<8 THEN 197@ 

2O20 REMEKKKKKKEKEKEKKEKEKKKKKEKKKKE 
xxx 

2420 D=0 

20460 Y=1 

2@S50 X=Z+h(Y+D) 

2060 IF X<11 OR X>89 THEN 2110 

2070 IF ACX)=B OR ACX?=Q OR ACXI=R T 
HEN 2220 

2980 IF A(X)<>E THEN 2112 

2O90 Y=Y+1 

2100 IF Y<Q@ THEN 205@ 

2110 D=D+7 

2120 IF D<49° THEN 2050 

2120 X=Z+11 

2140 IF X>88 THEN 2160 

215@ ITF A(X)=F THEN 2220 

216@ X=Z-11 

2176 IF X<11 THEN 2196 

2180 IF ACX)=P THEN 2226 

2190 X=X1:Z=KM 


42 OR A(X) 245 AND A(X?< 
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bd 


246 IF YE<? THEN 190@@ 

5@ CLS:LOCATE 1@,12:PRINT "I sconce 
de Champ!":END 

226@ X=Z+9 

227@ IF A(X) >=8 AND A(X)<=R THEN .MM= 
1:IF A(X) =P AND RND<@.2 THEN MM=@ 
2280 IF MM=1 THEN RETURN 

2290 IF Z=12 THEN RETURN 

2200 X=Z-11 

251@ IF ACX)>=B AND ACX)<=R THEN MM= 
1:1IF A(X) =F AND RND<@®.2 THEN MM=@ 
232@ RETURN 

ZIZZO REMKKKKKKKKKKK KKH KKK KEK EKK KEKE 
xKKX 

2540 IF Z-1O0x* CINT(Z/1@))=7 AND A(Z-1 
)=E AND ACZ-2)=E AND (A(Z-12)=E QR A 
(Z-12)=42) AND (ACZ+7)=E OR ACZ+7) =4 
2) THEN X=Z-2:MM=1: RETURN 

250@ IF ACZ-1)=E AND A(Z-12)<98 AND 
A(Z+8)<98 THEN X=Z-1:MM=1: RETURN 
2260 IF RND<@ AND A(Z—-1)=E THEN X=Z- 
1:MM=1 

237@ RETURN 

2280 Q=INT (RND*RND*5):1IF OSU THEN 2 
@ 


bh bh 
bh 


fat] 


2390 IF &Q<U THEN @=fQ+1 
2400 Z=T (A) 
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86 


19 IF ACZ)=FE THEN GNSUB 2Z4ea 
2420 IF AtZ)=NEB THEN GOSUR 181e 
2430 IF ACZ)=BB THEN GOSUR 1586 
2440 IF ACZ)=RB THEN GOQSUB 121i@ 
2450 IF ACZ)=QB THEN GOS'UR 1e@5e 
2460 IF ACZ)=KR AND ASS >"C" AND RND< 
@®.@7 THEN GOSUB 1898 
2470 IF MM=@ AND Q<U THEN GOTO 229@ 
2480 IF MM=1 THEN GOSUB 2520:GO0TC 308 
249@ UK=UK+1:IF UK>8 THEN 2250 
228 GOT 2380 
251D REMKKEKKKKKE EK KK KKK KKK KKK KKK KKK 


2020 IF AC(Z)=KB AND AS<>"C" AND RND> 
®.1 THEN MM=@:GOTO 2288 

2530 IF ACZ)=PB AND ((X-1@*INT(X/1@) 
>Z-L@KINT(Z/1@) OR ABS (X-Z)>11)2) THE 
N MM=@:U=U!+1:=GOTO 22e 

2o4@ ITF ACX)=K THEN FPRINT "CHECK": MM 
=@:(J=+1260TOQ 23 

2I0@ ACXI=A(Z)2A(Z) =E 

2560 PRINT"I will move fram "s; 

2079 FZ=INT(Z/10):PRINT CHRS(FZ+44); 
Z-1@%FZ3" to "“"ssFX=INT(X/1@) :FRINT € 
HRS (FX+454)3X-1@xXFX:sFOR O=1 TO Soe@ea:n 
EXT QO 

2280 RETURN 

ZI9D REMEKKEKKKKKKA KK KKKKKAKAEKEKEKKEK 
x xxx 

2600 MODE 1i:INK 1,.@:INK @,11 

2612 CLS 


Dynamic Games - Amstrad 


262% PEN 2 
2630 GOSURB 274e@ 
2640 SOUND 1,1@@:SQUND 1,123@:SQUND 1 


2650 FOR X=8 TO 1 STEF-1 

2650 PRINT TAB(1@)3sX3" "5 

2670 FOR Y=1@ TO 8@ STEP 1@ 

2680 IF ACY+1)=FEB THEN A(Y+1)=QB 

2690 IF ACY+9)=F THEN ACY+8)=Q0 

27@@ IF ACX+Y)<85 AND ACX+Y) 550 THEN 
PEN = 

2719 IF ACX+Y)>85 THEN SD=A(X+Y)-Z2: 

PEN 1:PRINT CHRS(SD)3" "“3:PEN 2:GOTO 
2728 

2/720 PRINT CHRS(ACK+Y) 25" "ssPEN 2 

2720 NEXT Y:PEN 2:PRINT X:PRINT: NEXT 
X2:MM=@ 

274@ PRINT TAB(14)3"A BC DEF G H" 
PRINT 

2790 REMEKXKKXKKKEKKKKKAKKKKKKKKEKKKEK 

*KKK 

2760 RETURN 

277@ Z=KM 

2788 AkK=ea 

2790 M=Z+K (OK) 

2B@0 IF M<1i1 OR M>8B THEN 2950 

2B1@ IF ACM)=42 OR A(M)>45 AND A(M< 

Bz OR MM=@ THEN 2850 

2B26 X=M 

2B30 KM=Z 

284@ RETURN 
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2856 IF QK<8 THEN 2796 

2860 IF At<>"C" THEN RETURN 

2878 GOTO 2258 

2BEQ REMEKXKKKKKEKEKKKEKE KE KEK EKKKK 
XXX 

2890 PRINT 

2900 INPUT"From (Letter,Number) "sat 
2910 IF LEN(AS)<>2 THEN 2890 

2920 LOCATE 29,22 

2920 INPUT"To";BS 

29AG@ IF LEN(BS)<32 THEN 2920 

2958 X=1@xk (ASC (AS) -64)+VAL (RIGHT? (AS 
21)? 

2960 Y=1®xk (ASC (BS) -64) +VAL (RIGHTS (BS 
me, 

2970 FRINT “Enter ’C? -— Check" 

2980 PRINT “Enter ’X? -— Te exchange 
sides" 

2999 PRINT "Enter ’?S”’ - To stcap game 
20@0 INPUT "Or press ENTER to contin 
ue"sAS 

2010 IF ACY) 2=75 AND ACY)<=B2 THEN G 
OSUB 376@ 

2020 IF ACY) =75 THEN 225@ 

2020 FOR DL=1 TO 2@@@:NEXT DL 

3040 A(Y)=A(X) 

Z@5@ A(X) =46: RETURN 

3969 REMEKEEKKEKEKKEKKKKEKKKKKKKKKKK 
*KXX 

3674 CLS:PRINT “PLEASE ENGAGE CAPS L 
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OCK"SPRINT “THEN PRESS ENTER" 

Z@8@ N=N+i:IF INKEY$=""" THEN ZeRe 
Z@9 RANDOMIZE N:CLS:PRINT “Please S 
tand By..." 

Zie@@ DEFINT A-Z 

Z211@ MM=@:As="" 

Z12@ DIM A(99),R628),28(28).N(8).0056 
y,K(8),2(289),5(64) ,T (14? 


Z12@ P=112:R=114:N=110:B=98 


| 
Me 
b> 
tad 
i] 


Z1iS@ FOR Z=1 TN 99:A(Z)=-99:NEXT Z 
ZLEO REMKKKERKK RAKE KKK EK KKK KKK KK KKK 


217@ FOR Z=1 TO 44:REAR X:READ Y:A(% 
)=Y:NEXT Z 
Z19@ DATA 18,82. 29.78.28.64.48, 81 
Z19@ DATA 58.75.68, 64,78, 78.88, 82 
3200 DATA 17,90. 27,90.27.80.47,80 
Z21i@ DATA 57, 20,.67.80, 77, 22,87, 80 
ZB2BA DATA 16446, 26.45, 26546. 46,46 
EBZO DATA 56, 46.66. 46.76, 46.856, 46 
324@ DATA 15,46, 25, 45,25, 45,45,4 
3254 DATA 55, 46.65, 46.75. 44,85, 46 
226 DATA 14.46.24, 46.24, 46.44,46 
327 DATA 54,46.64, 46,74, 46,94, 46 
ZPBO DATA 12,46, 22.46.7255 46,42,45 
229M DATA 53.46.62. 46.72.45, 22.46 
ZZ@O DATA 12,112, 22.112, 22,112,42,11 


"= 
,, 
= 
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Z4an 
Z4AL@ 
9 

Z420 
Z4AzZa 
2440 
7458 


= 


Z4s0 
Z47e 
z4aRe 
249@ 
2500 


rO4¢ 
Zo1@ 


@® DATA 


BATA 52. 2122627412, 725112282511 


y 


11,114,21,110,21,99,41,1123 
DATA 51,1@7,61,98.71,11@,81,114 
REMAKE KA KK KKK KKK KKK KK KEKE KEKE 


RESTORE 22z7e 

FOR Z=1 TO S:READ N(Z):NEXT 2 
DATA 19,-19,21,-21,-8.8,12,-12 
FOR Z=1 TQ 2@:READ R(Z)=sNEXT Z 
DATA 10,20, 20, 4@,5@,50,50 

DATA ~—1,-2.—-2,—-4.—-5. 5-5 


RATA -1@,-2@,-2, -40, -S@,-5e@,-5 


DATA 1,2.3,4-5-5-5 

RESTORE 245¢@ 

FOR Z=1 TQ 2Q:READ B(Z)=:NEXT Z 
DATA -11,-22,-22.-44,-55.-55,-5 


DATA. 11, 22.52, 44, 59,55. 55 

DATA 9,18,27,26,45,45,45 

DATA -9,-19,-27,-26.—-45,-45,-45 
RESTORE 2290 

FOR Z=1 TO S6:READ Q(Z}:NEXT Z 
FOR Z=1 TO 8:READ K(Z):NEXT Z 
DATA 1,11.9,1@,-1@,-9,--11,-1 
FOR Z=1 TO 454:READ S(Z):NEYT Z 
DATA 46,546.36, 645,47,57. 45, 55 
DATA 37,467.25. 65.28, 78.27.77 
DATA 44,54. 26, 76. 2=8.48,17,87 
DATA 18,88. 24,464, 25.75, 14,86 


208e@ 


ZSea 
2500 
2510 
2628 
2620 
XKKX 
2648 
2650 
2564 
2678 
2688 
ZE9@ 
2728 


27108 
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DATA 48,24,74,15.85. 14.44.42 
DATA 52, 22.62,.2%; 73.52542, 62 
DATA 32, 82,13, 72, 22,12.82. 41 
DATA 51,21,61,21.71411.81,59 
CLS: RETURN 
REMKKKKXKXKKKEKEKR KKK KKKKKKKKK 


FOR Z=11 TO BS:s72(Z=A(Z=INEXT Z 
FOR Z=11 TO BE: X=Z-1OxINT(Z/1@) 
IF xX=@ QR X=9 THEN 2680 
AZ) =Z (Z4+9-XK2) 

NEXT Z 

FOR Z=1i1 TO 28:M=A(Z) 

IF MP=B THEN A(Z?=A(Z)+PE-F 

JF M<=REB AND M>=BB THEN A(Z)=AC 


Z)-PB+P 


3720 
z7 20 
2740 
Z7EQ 
x KKK 
2760 
Z77a 
Z7Ba 
2798 
ZR0e 
281@ 
RN 

2820 
2820 
2840 


NEXT Z 

GOSUB 2610 

FETIJRN 

REM ROOK KOKORO KKK KKK KKK 


CM=INT (RND*4) +1 

ON CM GOSUBR 2790, 72800, 2914, 2820 
FOR J=1 TON 1@@@:NEXT J:RETHURSN 
PRINT “Well Done! ":RETURN 

FRINT “"Scod Move": RETURN 

FRINT “Great Move. Champ'":RETU 


PRINT "Got me...": RETURN 
RETURN 
REMAXXEXKXTITLE PAGE KEKKKXX 
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2350 FEN i 
2360 SYMBOL AFTER 22 


Z27@ SYMBOL 42,255, 255, 255, 255, 255.2 


ada Ss Cg ee 


ia <3 acne el a 9 


toute COs CO 

2880 CLS 

2898 LOCATE 1,2 

Z29a@@ SNR T=1 TN F 

2910 FEN T 

2920 FRINT" XxkxxxX x x **K* KX 
XKKKX *KKKX" 


Z92@ PRINT" x ee er, 
* _* 
294@ PRINT" x cece s SS SS 
OC Oooo" 
2950 PRINT" x * * x 
* *" 


2960 PRINT" X¥XKX x * *KKKX 
KKKKK xXKKKK" 

2978 PRINT:IFPRINTSPRINT 

Z980 SOUND 1, 250-(Tk7@) 

7990 NEXT T 

4Mmee LOCATE 1,25 

4016 PEN 1 

4020 PRINT TABR(9):"PRESS ANY KEY TO 
START" 

46270 WHILE INKEY$="":sWEND 

4@4@ SOUND 1,194 

4@5e@ RETURN 
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REVERSI 


In this game, also known as Othello (copyright Mine Of In- 
formation), you have to try and get most of the pieces on the 
board in your colour. You do this by placing your pieces in such 
a way to ‘trap’ the computer’s pieces. Any piece or pieces trap- 
ped at both ends by the opponent's discs are ‘reversed’ to the 
opponent’s colour. 


Many people, the famous board game strategist David Levy 
among them, consider this to be a very fine game indeed. It 
is very simple to learn but can be played at any level for a 
lifetime. The only strategy hint that | will give is not to surrender 
the corners to the computer as these can make a big difference 
in the game. The original version of this game was written by 
Graham Charlton. 

1® REM REVERSI 

2@ GOTO 1420 

20 PRINT "MY MOVE..." 

4® LOCATE 1,24 

5@ PRINT "* * * * * * * * O*" 

6@ S=0: T=X:H=@ 

7@ FOR A=2 T™2 9? 

B80 TM=2@-(AX2):LOCATE TM, 24 

9@ PRINT " "5 

196@ SOUND 1,Ax*3a 

11@ FOR B=2 TO 9? 

12@ IF ACA,B)<346 THEN 270 

1z@ Q=e@ 

14@ FOR f=-1 TO 1:FOR D=-i TO 

15@ K=@:F=A:G=B 

16@ IF A(F4+C,6+D)<sS THEN 199 

17@ K=K+1i:F=F+C:G6=G6+D 

198@ GOTO 168 


roy 
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199 TF ACF4+C,654D)<2T THEN 2te@ 

240 Q=Q+K 

2i@ NEXT D:NEXT C 

22@ IF A=2 OR A=9 OR B= OR B=9 THEN 
Q=Qx2 

220 IF A=2 OF A=B AR B=2 OR B=2 THEN 
Q=O/2 

24@ IF (A=2 OR A=9) AND (B=3 OR B=) 
OR CA=2 QR A=B8) AND (B=2 OR B=9) THE 

N Q=0/2 

208 IF Q@<H OR (RND<@.2 AND Q=H) THEN 
=7@ 

269 H=Q:™=A:N=B 

=7@ NEXT B:NEXT & 

=2@ IF H=@ AND R=@ THEN 92304 

290 IF H=@ THEN 2198 

24@ GOSUB 92a 

21@ GOSUB 428 

329 INPUT"ENTER YOUR MOVE ";R 

220 REM ENTER @ TO FASS 

244 S=X:T=0N:REM LETTER QO 

25@ IF R=@ THEN 23648 

26@ IF RX<11 OR R>BS THEN =22@ 

274 R=R+11 

280 M=INT(R/10) 

299 N=R-10%xM 

4@@ GOSUB 82a 

410 GOSUB 428 

42@ GOTO 2a 

4z¢ REM PRINT BOARD 

448 C=0:H=0 
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CLS 
PRINT 
FRINT TABCS)s"1 2345 6 7 8" 


FOR B=2 TO 9:PRINT B-t3" "3 
FOR D=2 TO 9 
IF A(EB,D?=88 THEN PEN 2:FRINT "O 


IF A(B,D)=79 THEN FEN 2:PRINT "9 


FEN 1 

IF A(B,D?=46 THEN PRINT ". ": 
IF A(B,D)=X THEN C=C+1 
IF ACB,D?=@ THEN H=H+1 
NEXT D 

PRINT B-1 

PRINT 

NEXT B 

PRINT TAB(S)s"1 2245 67 98" 
LOCATE 28,1 

PEN = 

PRINT "OTHELLO" 

SOUND 1,150 

LORATE 28,2 

PRINT “s====s==" 

PEN 2 

LOCATE 28.6 

PRINT "O “;:FEN 1 
PRINT "IS YOURS" 
LOCATE 28,1@ 

PRINT “COMPUTER: ":C 
LOCATE 21,12 
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728 
Baa 
81a 
824 
Bra 
RAM 
B5e@ 
96a 
874 
88e@ 


2 PRINT HUMAN: "2H 


IF H+C>46Z THEN EQTL 940 
LOCATE 22.14 
PRINT "SIDE DIGIT" 


2 LOCATE 28,17 


FRINT “" FIRST" 

LOCATE 4,22 

RETURN 

FOR f=-1 TO 1sFOR D=-1 TN 
F=M: G=N 

IF 4¢(F4+C,64+D)<>S THEN 87@ 
F=F+C:6=G6+D 

GOTO 848 

IF A(F+C,64+D)<2T THEN 918 
A(F.G)=T 

IF M=F AND N=6 THEN 914 
F=F-C:(=G-D:f0TO 898 

NEXT D: NEXT 

RETURN 

fOSUB 428 

FOR T=1 TQ 2@@@:NEXT T 
CLS 

LOCATE 2,8 

FRINT "MY SCORE: "::" 


SCORE: "3H 


980 
998 


LOLATE 7.12 
IF CH THEN FRINT "I?M THE 


YOUR 


CHAMF 


1@9@ IF H>C THEN PRINT "YOU'RE THE C 
HAMP !" 
1910 TF H=C THEN PRINT "IT?S A DRAW! 
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1@3@ CLS 
1@4@ X=ASC("X") :Q=ASC ("0") :REM LETTE 
R 8 NOT ZERO 

195@ DIM A(1@,1@) 

196@ FOR B=1 TQ 1@:FOR C=1 TO 1¢ 
1970 IF & <> 1 AND C<31 AND B <> 1@ 
AND C<> 1@ THEN A(B,C) = ASC(".") 
1@8@ NEXT C:NEXT RB 

199@ A(5,5)=X: A(6,4) =X 

110@ A(6,5)=0: A(S5,462=0 

111@ P=0 

112@ PRINT “DO YQU WANT TO GO FIRST 
oy? seNem 

1120 INPUT D¢ 

114@ GOSUB 4z6 

115@ IF D$="Y" THEN GOTO 32@ ELSE GO 
TO ze 
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GOMOKU 


This is a very easy game to play. Despite it, the computer 
will probably beat you every time. In Gomoku, you must at- 
tempt to get five of your pieces in a row. All | can wish you 
is good luck. This game is also based on a program by Graham 
Charlton. 


20 GOSUBR 8ze 
20 GOSUB 120 

4@ GQSUB Zee 
50 GOSUB 120 
4@ GOSUB zee 
7@ GOSUBR 120 
80 IF L>S THEN PRINT:PRINT “I WIN! ': 
END 
90 GOTO 40 

1a@ E=A 

11@ E=E+N: IF AC(E)<>Z THEN RETURN 
12@ K=K+1:GOTO 118 

12@ CLS 

14@ SQUND 1, INT(RNDX1@@)+5e@ 

5@ PEN 1 

16@ PRINT TAE(16): "GOMOKU" 

17@ PRINT TAB(16);"------ “sPRINT 
18 PRINT TAR(CI2)3s"1 2245 4 7 8" 
19@ FOR A=1 TO @:PRINT TAB(B):A:" "; 
20@ FOR B=2 TO 9 

21@ IF ACAXL@+B)=72 OR A(A*1Q+B)=47 
THEN FEN 2 ELSE PEN 1 
220 PRINT CHRS(A(AX1@+B))5" ": 
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22@ NEXT &B 

248 PEN 1 

20@ PRINT A 

260 PRINT 

27@ NEXT A 

2B@ PRINT TAB(12)3"1 2245 6 7 8B" 
292 RETURN 

20@ PRINT: PRINT 

21@ FRINT "PLEASE ENTER YOUR MOVE... 


220 INFUT G 


22@ G=G+1 
24@ IF Gti2z OR G89 OR A(G)<246 THEN 
220 


20@ Z=H 

76¢@ A(G)=Z 

37@ RETURN 

288 A=6 

290 LOCATE 8,23 

4@@ PEN 2=:PRINT "I?M THINKING..." 
410 L=0 

420 FOR X=1 TO 4:k=0:N=X (XxX) 

42@ GNSUBR 10@ 

44@ N=-N:GOSUB 100 

45@ IF K>L THEN L=kK 

46@ NEXT X 

470 IF L>2 THEN FRINT:PRINT “YOU WIN 
''"s END 

4Rea T=1 

490 IF T<>2 THEN Z=C 

S@@ IF T=2 THEN Z=H 
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Si@ G=a:Hi=6:L=o 
52@ FOR A=12 TQ 89 


S20 M=@ 

54@ IF ACA<?446 THEN 65@ 
S5@ FOR X=1 TO 4:Kk=@:N=X (XxX) 
56@ GOSUB 19@ 

378 N=-N:GOSUE i1¢@0 

588 IF K>L THEN Hi=@:L=k 


ie) 
3 9] 
S 


® IF Lé<>K THEN 620 
6@@ IF T=1 AND L<4 OR (T=2 OR T=2) A 
ND L<2 THEN 620 
618 M=M+1 
62@ NEXT X 
42@ IF M<=Hi THEN 4658 
640 HL=M:G=A 
65@ NEXT A 
66@ IF Hi<>@ THEN 72e@ 
67@ T=T +1: IF T<>4 THEN 490 
68@ A=1 
69@ G=INT (RNDK77)+13 
7@0@ IF A(G)=46 THEN 728 
71@ A=A+1: IF A<10@ THEN 690 
722 PRINTs:PRINT "I CONCEDE THE GAME" 
sPRINT"TQ A MASTER! !":END 
2@ A(G)I=C 
744 Z=C:A=G:L=@ 
758 FOR X=1 TO 4 
76@ K=a 
774 N=X(X) 
78@ GOSUB 108 
79@ N=-N:GNSUB 100 
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Bee IF K>L THEN L=K 
81@ NEXT x 

B20 RETURN 

82@ MODE 1 

B4@ INK @.26 

@5@ INK 1,12 


846@ CLS 

87@ FEN 1 

886 DIM AC(1@@):DIM X(4) 
B9@ FOR C=1 TO 8 

9@@® FOR B=2 TO 9 

91@ ACCK1O+B) =46 

920 NEXT B 

920 NEXT C 


24@ FOR A=1 TO 4 

95@ READ Z:X(@)=Z 

96@ NEXT Q 

97@ DATA 1.9,1@,11 

98@ H=ASC("H") :C=ASE("C") 

290 N=e 

1@0@ N=N+1 

1@1@ RANDOMIZE N 

1@2@ CLS 

1@3@ FOR J=1 TQ INT(RND*12) +1 
1@4@ READ J 

1@5@ NEXT J 

194@ A(Z)=C 

1@70 RETURN 

198® DATA 24,25, 44, 46,47,54,55.56,57 
~66 


101 


Dynamic Games - Amstrad 


FOUR IN 
A ROW 


Everyone knows the famous game ‘Connect-4’ where you 
must try to get a line of four discs, horizontally, vertically or 
diagonally. In this program, the computer is a fair match for 
you, although it is weakest near the beginning of the game. 

One final note. Be careful over the number of spaces you 
type in line 1370. The string creates a giant 4 on the screen. 


1@ REM FOUR-IN-A-ROW 


3@ MODE @ 

6@ GOSUB 124@:REM TITLE FAGE 

7@ GOSUB 122@:REM INITIALISE 

80 GOSUB 920:REM PRINT BOARD 

°@ GOSUB 75@:REM WIN CHECK 

19@ GOSUB 1119:REM HUMAN MOVE 
11@ GOSUB 92@:REM PRINT BOARD 
12@ GOSUB 75@:REM WIN CHECK 

13@ GOSUB 16@:REM COMPUTER MOVE 
14@ GOTO 8@ 

15@ REM ¥XXKKKKKKKEKE 

16@ REM COMPUTER MOVE 

17@ PRINT:PRINT "STAND BY FOR MY MOV 


180 B=14 
19@ B=B+1 
20@ IF A(B)=-9 THEN 228 
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i) 


IF ACB)=C THEN X=C:GOTN 2é6e 

IF ACBR)Y=H THEN X=H: GOTO 246e@ 

IF BY 77 THEN 19@ 

GOTOH 348 

REM XXXKXKKKEKEKAKEKEKEKEK 

REM FOUR IN ROW DANGER? CHANCE? 
REM ACROSS 

2B IF ACR+1)=X AND A(B+2)=xX AND A(B 
+3) =E AND ACB+12) <> E THEN MV=R+2:G 
OTQ 728 

29@ IF A(B-1)=X AND ACB-2)=X AND A(B 
~2)=E AND ACB+7) <> E THEN MV=B-2:G60 
TO 728 

30@ IF A(B+1)=X AND AC(B+2)=X AND A(B 
-1)=E AND ACR+9) <> E THEN MV=B-1:50 
TQ 720 

31@ IF ACB-1)=X AND A(B+2)=X AND A(B 
+1)2.= © AND ACBt+it) <> E THEN MV=B+1: 
SOTO 720 

3220 IF ACB+1)=X AND A(B-1)=X% AND ACB 
+2) =E AND AC(B+12) <> E THEN MV=B+2:6 
OTO 72a 

3230 IF ACB+1)=X AND ACB-1)=X AND A(B 
-2)=E AND AC(B+8) <> E THEN MV=B-2:60 
TO 72@ 

24@ IF ACR-1)=X AND ACB-2)=X AND A(B 
+1). =E AND A(B+11) <> E THEN MV=B+1:6 
OT 72e@ 

25@ REM DOWN 

24@ IF B>2@ THEN IF ACB-1@)=X AND AC 
B-29)=X AND ACB+1@)=E AND A(B+26)<¢3E 


tJ ho tl bi th bl oh 
Om Ch f fA fj re 
oS o © & & 


~~ 
& 
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THEN MV=BR+1@:G0TO 724 
27@ REM DIAGONALS 
38@ IF A(B+1i1)=X AND A(B+22)=X AND 
(B-11)=E AND A(B-1) <> E THEN MV=B-1 
:GOTQ 728 
29@ IF A(B+9)=X AND ACE+198)=X AND AC 
B-9)=E AND A(B+1) <> E THEN MV=B-9:6 
OTO 72a 
400 REM ¥KXKKEKKAKKKKKKK 
41@ REM MAKE/BLOCK THREE? 
420 REM ACROSS 
426 IF ACB+1)=X AND A(B+2)=E AND ACB 
+12) <>E THEN MV=B+2:60TO 7190 
44@ IF ACB+1)=X AND ACB-1)=E AND A(B 
+1) <> E THEN MV=B-1:GOTOQ 71@ 
45@ IF A(B-1)=X AND ACR-2)=E AND A(B 
+8) <> E THEN MV=B-2: GOTO 714 
46@ REM VERTICAL 
474 IF ACB+1@)=X AND A(BR-1@)=E AND A 
(BR) <S3E THEN MV=B-10:G60TQ 714 
480 REM DIAGONAL 
49@ IF A(B+9)=X AND ACB-9)=E AND ACB 
+1) <> E THEN MV=B-9:60TQ 71@ 
S@@ IF B>it THEN IF ACB+11)=X AND AC 
B-11)=E AND ACB-1)<>E THEN MV=B-11:5 
TQ 728 
@ GOTO 228 
@ REM *KXEXKAKAKKK 
REM SINGLE MOVE 
FOR N=1 TO = 
MCN) =6 


Db 


Oo 


> 
gS 


cn in Cl an a 
> 


un 
S 
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56@ NEXT N 

57@ COUNT=0 

589 FOR B=11 TO 77 

59@ IF A(B)<>C AND A(B)<>H THEN 65@ 
6@@ IF ACB+1)=E AND ACB+11L) <> E THE 
N SOUNT=COQUNT+1:M (COUNT) =B+1 

61@ IF A(B-1)=E AND A(B+9) <> E THEN 
COUNT=COUNT+1:M (COUNT) =B-1_ 

62@ IF A(B-1@)=E AND A(R) <> © THEN 

COUNT=COUNT+12™ (COUNT) =B-1e 

&6=@ IF A(B-11)=E AND A(B-1) “<> © THE 

N COUNT=COUNT+1:M (COUNT) =B-11 

64@ IF A(B-9)=E AND A(B+1) <> E THEN 
COUNT=COUNT+1:M (COUNT) =B-9 

65@ NEXT B 

66@ IF COUNT<>@ THEN 690 

679 PRINT:PRINT "I THINK WE SHOULD 
CALL IT A DRAW!" 

62@ PRINT: PRINT: PRINT: END 

69@ RV=INT (RNDXCOUNT) +1 

70a MV=M (RY) 

71@ ACMV) =C 

72@ RETURN 

720 REM OOOO 

74@ REM WIN CHECK 

75@ X=H 

74a B=1@ 

779 B=B+1 

780 IF A(BR)<>X THEN 8Za 

790 IF A(B+1)=X AND ACE+2)=X AND A(B 
+3)=X THEN 86@ 
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90@ IF BSze 


R-2@) =X AND 


AND AC 


81i@ ITF Bszz THEN IF ACB-11)}=xX AND AC 
B-22)=X AND ACR-ZZ)=X THEN 368 
B2e IF B27 THEN IF ACE-93=X AND A(B 
-193=% AND A(B-27)=xX THEN &4@ 


Blz@ IF 8477 THEN 770 
F 


X=H THEN X=:f0TO 740 
85@ RETURN 


260 REM WIN FOUND 


B7@ PRINT: PRINT 
B8@ IF X=H 


ME. HUMAN!" 


89 IF xX=C 


YOU. HUMANE" 


THEN FRINT"“YOU’? VE BEATEN 


THEN FPRINT'I* VE DEFEATED 


90@ PRINTSPRINT: PRINT: END 
910 SEM X*XKKEKEKEKEKX 
BOARD 

930 CLSEsPRINTs PRINT 


15e@,10@ 


929 REM PRINT 


°40 SOUND 


4 


+a 


95 SOUND 2,155,970 
96@ FOR K=10 
97@ PRINT TAE(S)s 


938 FOR J= 


4 
+ 


TO 7 


THN 
bre 


7 STEF 10 


29@ IF A(K+J)=72 THEN FEN 4:°RINT CH 
"::GOTQ 1820 
19@@ IF A(K+J)=67 THEN PEN =:PRINT C 


"3:GOTO i1e@20 


Re(Szi)"" 


HRE(2Z1)3" 


1¢@10 PRINT 
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NEXT J 

FRINTIPRINT 

NEXT K 

PRINT TAR(S):"t 3 32 452 6 7" 
PRINT: PRINT 

RETURN 

REM KAXXXKXKKEX 

REM HUMAN MOVE 

PRINT" YOUR MOVE... "SPRINT 


PRINT "WHICH COLYMN DO YOU WISH 


INPUT"MOVE INTO": J 

Z=J 

Z=Z+10 

IF A(Z+1@)=E THEN 115¢@ 

IF ACZ)=E THEN A(Z) =H: RETURN 
PRINT "YOU CAN’T MOVE THERE" 
GOTN 1126 

REM OOOO OnE 

FEM INITIALISE 

cLs 

DEFINT A-Z 

RANDOMIZE TIME 

DIM A(1@9) .M(Z@),P(S) 
E=Asc(". "3 

H=ASC ("HU") SCHASC("C") 

FOR E=i TO 149 

ACE) =E 

D=B-1@xINT(E/1@) 
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1220 
1220 
1240 
1zaa 
12460 
127@ 
4 


NEXT 8 
RETURN 

cLs 

PEN = 

LOCATE 1.7 
Ags" 4 


44444 
4" 

PRINT Ag 
PRINT: PRINT: PRINT 
FEN 2 
FRINT “" ION A 
PEN 4 
LOCATE 4,24 


PRINT CHRS (154) 3 "1984 TFH/CG" 


FOR T=1 TN 2@ 
BCRDER 7.8 

SOUND 1, 27¢-(TxK1@)} 
SOUND 1, 25@-(Tx1@) 
NEXT T . 


RETURN 


Ww" 
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CHECKERS/ 
DRAUGHTS 


Draughts is a very popular game all around the world, and 
this version of the game - based on a program by Tim Hart- 
nell - allows you to challenge your Amstrad to a round or two. 
Many European countries have their own variations of the 
game. Continental draughts for example is played on a board 
of 100 squares with each player starting the game with 20 
pieces. 


Our draughts program plays the game you are probably 
most familiar with. It plays swiftly and reasonably well, 
although its lack of endgame strategy often leads to a dramatic 
collapse in the final moments of a game. You are black and 
Arnold is red. The capital letter ‘‘K” is used to designate a 
king. You have the option of moving first or second. 


1@ REM*£* KCHECKERS/DRAUGHTS &*xx 

2@ GOSUB 1070 

3@ INPUT "Would you like the first mov 
e (Y/N) "3AS 

4® IF LEFT$(AS,1)="N" THEN GOTO 80 
SO REMKKKERKRKKKEKEKKKAKKKKKEE KKK 
6@ GOSUB 596 

7® GOSUB 820 

B@ GOSUB 578 

970 GOSUB 1206 

19@ GOTO 46@ 

11@ REMKXKXKKEKKK EKA ERKAKK EKER EAE 
12@ FOR X=1 TO 1@:S(X)=@sNEXT 

126 SC=@: A=89 

14@ A=A-1 
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150 IF Q@(AY<3C AND Q(AI<SCK THEN 220 
16@ BH=@:IF AC29 THEN B=2 

170 B=B+1 

18@ M=A+N(B) 

19@ IF M>88 OR M<11 THEN 230 

200 IF (Q(M)=H OR Q(M)=HK) AND Q(M+N(B 
.)=E THEN 2790 

210 IF Q@(M)=E THEN IF (Q(M-11)<>H AND 
Q(M-11)<>HK) THEN IF (Q(M-9)<>H AND QO¢ 
M-9)<>HK) AND Q(M+9)<>HK THEN IF ((Q(M 
+22) <>HK OR Q(M+18)<3HK) AND (Q(M+9) <> 
C OR Q(M+9)<>CK OR Q(M+11)=C OR QCM+11 
Y=CK)) AND @(M4+11)<>HK THEN GOSUB 399 
22@ IF B<2 OR (Q(AY=CK AND B<4) THEN 1 
7@ 

220 IF A>1i1 THEN 146 

24@ FL=@:IF Q@(22)=C OR Q(24)=C OR QC(24 
.=C OR O(28)=C THEN GOSUB 1340 

25@ IF FL=1 THEN 54@ 

26@ GOTO 4190 

270 Q(M+N (BR) )=Q(0A) 200M) =Es QCA) =E 

280 CO=CO+1 

290 GOSUB 599 

200 A=M+N (B) 

2140 B=0 

32@ B=B+1 

320 IF (A+2*N(B)<11 OR A+2¥N(B)>88) AN 
D B<4 THEN 320 

240 M=A+N(B) 

25@ IF Q(M)=C AND BSS THEN RETURN 

360 IF (Q(M)=H OR Q(M)=HK) AND Q(M+N(B 
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3). =E€ THEN 27@ 


278 
28 

28a 
290 
4QQ 
419 
420 
4z@ 
446 
45a 
46@ 
47@ 


IF B¢2 OR (RACAY=CK AND B#4) THEN 2 


RETURN 

IF SC<1@ THEN SC=SC+1 

S$ (SC) =1@@*A+R+20: RETURN 

IF SC=@ THEN 446 

XC=INT (RNDXSC) +1 
A=INTCSOXC) 140) 

M=A+N (S (XC) -19@XA-20) 

GOTO 34e@ 

SC=SC+1:A=INT (RND*88) +1 

IF Q(AX<>C AND Q(A)<>CK THEN 540 
B= 
B=B+1 

M=A+N (B? 

IF M>88 OR M<1il THEN S20 

IF Q(M)=E THEN S40 

TF B<2 OR QCAD=CK AND B¢4 THEN 490 


540 IF SC%Z@@ THEN 440 

35@ PRINTs:PRINT "TI CONCEDE THE GAME":E 
ND 

546@ Q(M)=Q(A) QCA) =E 

S7@ RETURN 

SBQ REMKXEXKKKXKEKKEKERKAKKEKKKKKE 

3?7@ CLS 

&6@@ PRINT " COMPUTER: ";CO;" 
HUMAN: "3 HU 

61@ PRINT 


620 


PRINT " 12245 678 
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63@ FOR F=8@ TO 1@ STEP -1@ 

64@ PRINT " "SF/10," "5 

65@ FOR G=1 To 8 

66@ IF Q(F+G)=46 THEN PRINT CHRS (143); 
“ "2:GOTO 720 

67@ IF Q(F+G)=26 THEN PEN 3:PRINT CHRS 


(75)3" "3:PEN 1:GOTO 720 
68@ IF Q(F+G)=67 THEN PEN 3:PRINT CHRS 
(231)>2" "3:PEN 1:2GOTO 720 


699 IF Q(F4+G)=75 THEN FEN 2:PRINT CHRS 
(75)3" "3:PEN 1:GOTO 720 

7@@ IF Q(F+6)=72 THEN PEN 2:PRINT CHRS 
(231)3" “3:PEN 1:GOTO 720 

71@ PRINT CHRS(144)35" "5 

720 NEXT G 

7=@ PRINT F/1@:PRINT:SNEXT F 

74@ PRINT " 1223454678 


750 IF CO=12 OR HU=12 THEN 770 
76@ RETURN 
770 IF HU=12 THEN PRINT "YOU HAVE WON! 


780 IF CO=12 THEN FRINT "I HAVE WON!" 
79@ PRINT:PRINT “THANKS FOR THE GAME." 
:END 

BOD REMKXKXEKEKKKEKKKAAERKKKKKKKEK 
81@ REM ENTER 7997 TO CONCEDE 

B2@ PRINT: PRINT 

826 PRINT “ENTER YOUR MOVE" 

84@ INPUT “FROM";A 

85@ IF A=99 THEN GOTO 799 
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86@ IF A>99 THEN 840 

874 IF Q(A)Y<7H AND Q(A<SHK THEN 840 
88@ INPUT "TO"3B 

899 IF B>9?9 THEN 88e@ 

906 IF Q(B)<>E THEN 880 

91@ Q(B) =Q(A):Q(A) =E 

920 REMEXXEERKKEKKAKAKKEREKIE KKK EEKKE 
93@ FOR T=11 TO 17:IF Q(T)=C THEN Q(T) 


940 NEXT T 
95@ FOR T=82 TO 88:IF Q(T)=H THEN Q(T) 


96@ NEXT T 

F7Q REMEXKKKEKEKT ERA EKER AAAS ERE 
980 IF ABS(A-B)<12 THEN RETURN 

990 PRINT “coop MOVE": GOSUB 1430 

199@ HU=HU+1:0( (A+B) /2)=E:GOSUB 590 
101@ FOR T=82 TO 88:IF Q(T)=H THEN Q(T 
) =HK 

1@20 NEXT T 

1030 PRINT: INPUT "CAN YOU JUMP AGAIN ¢ 
Y/N) "SAS 

104@ IF AS<>"Y" THEN RETURN 

105@ A=B:GOTO 87@ 

1260 REMKKKEXKAEKEREREAEAAAR AKER ERAT ES 
1@7@ REM***INITIALISATIONS** 

1080 INK 2,@:INK 1,26 

109@ INK 0,14 

1196 CLS:PRINT "PRESS ANY KEY":N=1 
1110 N=N+i:IF INKEYS="" THEN 1110 

112@ RANDOMIZE N 
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113@ CLS 

114 PRINT “PLEASE STAND BY..." 

115@ DIM Q(99),N(4).S(1@) 

1146 H=ASC ("H") sHK=ASC("K") 

117@ C=ASC("C") =CK=ASC ("S$") 

1186 E=22:0F=-99 

119@ FOR M=1 TO 99:Q(M)=OF:NEXT M 

12@@ FOR M=1 TO 64 

121@ READ D:READ G 

1226 Q(D)=G:NEXT M 

123@ DATA 81,46,82, 67.82, 46,84, 467.85.4 
6.86,67,87,46 

124@ DATA 88,67.71,67.725 4647256747444 
6,754 67.76, 46 

125@ DATA 77, 67, 78.46.61, 46,62,67.63.4 
6,64, 67 

126@ DATA 65, 44,646, 67,67. 46,68, 67,51, 
2.52.46 

127@ DATA 53, 22.54, 46,55. 22,56, 46,5743 
2,58,44 

128 DATA 41,46.42,22,42, 46,44, 32,45,4 
6.46, 22 

129@ DATA 47,46, 48, 32,31, 72.32, 46,33.7 
2,34,46,25,72 

12@@ DATA 26,46, 27,72, 28. 46, 21,46, 22,7 
2,235,46,24,72 

131@ DATA 25,46, 26,72, 27,46, 28.72,11,7 
2,12,46,13,72 

1220 DATA 14,46,15,72,16.46,17.72.18,4 


& 
133@ FOR M=i1 TO 4:READ X=:N(M)=X:NEXT M 


134@ DATA -11,-9,11, 
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125@ CO=@: HU=0: RETURN 


1360 IF Q@¢22)=C AND 
M=11:2FL=1: RETURN 
127@ IF Q¢€22)=C AND 
M=13:FL=1: RETURN 
1280 IF @¢24)=C AND 
M=13:FL—1:s RETURN 
129@ IF @¢24)=C AND 
M=15:FL=1: RETURN 
14@0 IF Q@(26)=C AND 
M=15:FL=1: RETURN 
141@ IF Q¢246)=C AND 
M=17:FL=1: RETURN 
1426 RETURN 


Q¢C11)=€ 


Q(13)=E 


Q¢12)=€ 


Q(15) =E 


Q(15)=E 


Q(17)=E 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


- Amstrad 


142@ FOR O=1 TO 15@@:NEXT Os RETURN 
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SHORT BUT 
SWEET 


Here are a few shorter games. They are less complex than 
most others in this book, but I’ve included them for a purpose. 
Apart from being fun to play, they are games which you can 
easily extend and improve. One of the best ways to learn to 
program is to enter other peoples’ programs into your com- 
puter and then try to add your own features. 

The programs in this chapter are ideal for the purpose. But 
don’t think they are just included here for that reason. Type 
them in and play them. You will find them all entertaining as 
they are. However, once you have played them for a while, you 
can try and add some extra graphics or sound. Add extra 
features such as high scores. 
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SNIPER 


You — as a marksman of some calibre — have been assign- 
ed to eliminate the snipers surrounding the Embassy building. 
As one of the snipers foolishly shows his head, you must try 
to kill him. You do this by estimating his position on the screen 
and hitting the number key that you think applies to him. 

For example, if he was on the far left hand side of the screen, 
then you would type 0. If on the far right, you’d enter 9, and 
if you thought he was in the middle you’d hit 5. All the numbers 
from 0 to 9 can be used. 

At the end of the game, the computer gives you your score. 
The snipers appear for a very short time so your reactions must 
be sharp. 


1@ REMEK*KSNIPERXKXx 

20 GOSUB 220 

36 FOR G=1 TO 16 

4@ A=0 

5® FOR D=1 TO INTC(RND*2500) +200 

6@ NEXT D 

7H R=INT (RND*9) 

8 LOCATE (R*2)+1.4 

28 PRINT CHR$ (225) 

1@@ FOR T=1 TO 4ee@ 

11@ AS=INKEYS:IF AS<¢3"" THEN T=420 
12@ NEXT T 

1Z@ A=VAL (AE) 

14@ IF A-1=R THEN LOCATE 4,17:FRINT 
"YOU HIT HIM! ":SOUND 1,1@@,10@:SC=SC 

+1 

15@ IF A-1<>R THEN LOCATE 4.17:PRINT 
"YOU MISSED":SQUND 1,1@e@,1¢@ 
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FOR T=1 TO 12@@:NEXT T 


PRINTIPRINT "YOU HIT":SC: "SNIPER 


PRINTZSPRINT "A SCORE OF "SINTC(S 


C/16)k19@)s"%" 


21e 
220 
220 
240 
250 


2b6@ 


END 
REM*X*KINITIALISATIONK&X 
SC=8 

MODE © 

CLS 

RETURN 
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MATCHSTICK 
MEN 


This is a version of the famous Matchsticks/Nim game. In 
this game, you and the computer take turns taking a number 
of matchstick men away from the pile in an attempt to leave 
the opponent with the last matchstick. 

The computer’s strategy is mainly held in line 210. I’ve in- 
cluded a slight random element to make the game more fair. 
Without that, the computer would nearly always defeat you. 
The addition of the random element makes the game a little 
less predictable and more like how two human players would 


play it. 


1@ REMX*X**xMATCHSTICK MEN+ x4 

2@ CLS 

2@ RANDOMIZE TIME 

40 M=0:E=@: Z=INT(RNDKS) +16 

S@ IF 2KINT(Z/2)=Z THEN Z=Z+1 

6@ H=Z+INT (RND*2) 

7@ PRINT “THE MAXIMUM YOU CAN TAKE I 
S"3H 

8@ IF E>® THEN PRINT “YOU TOCK";E;", 
AND I TOOK ":Q 

°@ GOSUB 27a 

19@ FOR K=1 TO Z 

110 PRINT CHR (248+INT(RNDE4))s"  ": 
120 NEXT K 

1Z@ PRINT:PRINT 

14@ GOSUB 270 

15@ PRINT “HOW MANY WILL YOU TAKE?" 
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16@ E=VAL CINKEYS) 

174 IF E<1 OR ESH OR EtZ THEN 168 
18@ PRINT:PRINT "SO YOU WANT TO TAKE 
Hee 

19@ Z=Z-E 

20 IF Zi THEN PRINT "YOU TOOK THE 
LAST ONE, SO I WIN'!'": END 

21@ Q=Z-1-INT¢(Z-1) / CHL?) & CH+12-INT 
C(RND*2)+I1NT CRND*X2) 

229 IF Q<1 QR Q?H THEN 21@ 

220 Z2=Z7Z-Q 

24@ IF Zei THEN PRINT "I TOOK THE LA 
ST ONE...YOW WIN!!!" END 

208 GOSUE 27@ 

268 GOTO 7@ 

27@ PRINT 

FQQ PRINT "Ste eecerceecerecccececece 
29 PRINT 

20@ SMUND 1, INT CRNDK24@)+60 

319 BORDER INT (RND*26) 

32@ FOR G=1 TO 1@@@:NEXT G 

320 RETURN 
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PITCH ’N PUTT 


Here’ 


your ve 


‘strengt 


s your chance to become the next Jack Nicklaus on 
ry own Pitch ’n Putt course. You must knock the golf 
ball into the hole in the least number of strokes. You enter a 
h of shot’ figure. If you are to the left of the hole enter 
a positive number. If to the right of the hole, make it a minus 
figure. You can play a bad shot and land ‘out of bounds’. If 
this happens, strokes will be added to your score and you must 
start the hole again. There are eighteen holes to play, and a 
score card at the end of the game gives you a hole-by-hole 


breakdown. 


10 
26 
2 
4@ 
38 
60 
70 
8@ 
90 
1908 
11@ 
129 
128 
14® 
15@ 
xxx 
168 
179 
189 
192 
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REM*X4XkPITCH 7N PUTT&RKE 
INK @,.9 

INK 1,24 

INK 2,26 
PEN 1 
DIM N(1@) 
GOSUB 510 
FOR H=1 TO 18 

X=INT (RND¥15) +24 

CLS 

PRINT 

PRINT “THIS IS HOLE NUMBER "3H 
P=2 

LOCATE 1,20 

PRINT “OOO OOOO OOO OOK 
HOR EE" 

LOCATE X,2@ 

PRINT " “: 

LOCATE 4,128 

N(H)=N(H) +1 
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20@ PRINT "STRENGTH OF SHOT (1@ TQ - 


21@ PRINT " ‘ 

220 LOCATE 2,11: INPUT S 

220 IF S$>1@ OR S<-1@ THEN GOTO 210 
4®@ FOR T=20@ TO 480 

3@ SOUND 1,7.,1.15 

26@ NEXT T 

27@ LOCATE P,19 

289 PRINT " " 

298 IF S<2 THEN P=P+S+CINT (RND*1)—-CI 
NT CRND*¥1):GOTO 310 

300 P=P+S*e2+ INT (RND*4) -INT (RND*4) 
210 IF P>29 OR P<2 THEN P=1:LOCATE i 
s2£4:PRINT ">>>>>>30UT OF BOUNDS<<<f<2¢ 
“"sNCHY=N(H)4+23SFOR T=1 TO 2@0@:NEXT T 
:SOUND 1,800,5@,15:LOCATE 1,.24:PRINT 


22@ LOCATE P.19 
32@ PEN 3 

34@ PRINT "“o": 

Z5@ PEN 1 

26@ IF P=X THEN LOCATE 15,13:PRINT " 
WELL DONE'":PRINT TAB(12);"ZIT TOOK Y 
OU "3;N(H)sLOCATE X,2@:PEN 3:FRINT "po 
"sPEN 1:LOCATE X,19:PRINT “ ":GOTO 2 
86 

37@ GOTO 186 

2B8@ TL=TL+N(H) 

39@ LOCATE 1,16 
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40@ PRINT " PRESS ANY KEY TO CO 
NTINUE"™ 

41@ WHILE INKEYS=""sWEND 

42@ NEXT H 

420 CLS 

440 PRINT “SCORE CARD AS FOLLOWS..." 
45@ PRINT: PRINT 

46@ FOR T=1 TO 18 

47 PRINT “HOLE NUMBER “sT3", YOU SC 
ORED"sN(T) 

48@ NEXT T 

49@ PRINT:FRINT “MAKING A TOTAL OF " 
37L 

56@ END 

51@ REMX*X*XDEFINE CHARACTERS xx 


520 
S2@ 


SYMBOL AFTER 22 
SYMBOL 42,179,170, 170, 255, 255. 25 


5,255, 255 


349 
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RETURN 
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NEEDLE IN 
THE HAYSTACK 


As the title suggests, you have the unenviable task of sear- 
ching for a needle lost in a haystack. You must enter three 
coordinates: x, y and finally the height of the needle’s posi- 
tion. Happy hunting! 


1@ REM*2*X*exNEEDLE IN THE HAYSTACKXSX¥X 
2® GOSUB 230 

20 G=1 

4@ A=INT (RND*8) +1 

3@ B=INT (RND#8) +1 

6@ C=INT (RND*B) +1 

7® CLS:MODE 1 

8@ BORDER INT (RNDXK25) +1 

96 PRINT " THE NEEDLE IN THE HAYS 
TACK" 

100 PRINT:PRINT 

119 PRINT:PRINT “YOUR MAIN AID IS AN O 
LD ELECTRO-MAGNET THAT GIVES A READIN 
G IN NUMERIC TERMS." 

120 PRINT:PRINT "THE LARGER THE NUMBER 
» THE COLDER’ YOURGUESS IS. YOU MUST 

LEARN TO UNDERSTAND THE READINGS IN Y 
QUR QUEST TO FIND YOUR MISSING NEEDLE. 
1236 PRINT: PRINT 

14@ PRINT “ENTER YOUR GUESS" 

150 INPUT "YOUR X COORDINATE": X 
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169 IF X>8 OR X<1 THEN 156 
17 INPUT “AND YOUR Y COORDINATE": Y 
186 IF Y>8 OR Y<1 THEN 176 
190 INPUT “AND THE HEIGHT OF THE NEEDL 
E"5Z 
2@@ IF Z<1 OR Z>8 THEN GOTO 199 
21@ PRINT 
220 PRINT TAB(S) 5 
220 PRINT M#CINT(RND*4) +1) 
240 IF A=X AND B=Y AND C=Z THEN GOTO 
3B@ 
250 PRINTsPRINT 
246@ M=ABRS (A-X) +ABS (B-Y) +ABS (C-Z) 
27@ PRINT “ELECTRO-MAGNET READING: “; 
288 PRINT: PRINT: PRINT" HAVE ANOTHER GO 
29@ PRINT:PRINT " Y = YES, N = NO "™ 
2@@ WHILE INKEY$<>"Y":WEND 
310 G=G6+1 
322@ GOTO 79 
23@ FOR T=1 TO 4 
740 READ MS(T) 
25@ NEXT T 
360 DATA “GREAT! ", "THANKYOU", "SOUNDS G 
ooDpD..."."TA* VERY MUCH" 
378 RETURN 
380 REM***CORRECT &4xX 
79@ PRINT: PRINT: PRINT: PRINT 
400 MODE © 
41@ PRINT "“# # FH ERE" 
2@ PRINT " # # # #" 
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428 
440 
45@ 
46@ 
47@ 
480 
499 


PRINT 
PRINT 
PRINT 
SOUND 


PRINT: 


PRINT 
END 


Dynamic Games 
“  # FH 4 Ht HE" 
u # + #" 
“ HEREH 8 «HHH 
1,190, 290 
FRINT: PRINT 


“IN": Gs "ATTEMPTS" 


- Amstrad 
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ROM BUG 


There you were playing Zappo Invaders when your machine 
started to behave most strangely. You discover you have a 
‘ROM Bug’. Can you get rid of him by POKEing the address 
where he is situated? Further instructions are included in the 
program. The game makes use of the Amstrad’s excellent in- 
terrupt features to create havoc on the screen, simulating the 
activities of the ROM Bug. 


1@ REM***XxkROM BUGBKKKX 
20 GOSUB 290: REM*XX*X INSTRUCT IONS**X* 
F=INT (RNDX206@0) +42400 
1 


9@ PRINT: PRINT 

1@@ PRINT "This is debugging attempt 
numnber"sA 

11% PRINT: PRINT 

120 INPUT "WHICH MEMORY BLOCK ";D 
126 IF D>é64ee@e OR D6 4240@ THEN 126 
14@ IF F=D THEN GOTO 296 

1S¢@ IF P¢s>D THEN PRINT:SPRINT " 

WwW RK QO N Gs! ! eon 

14@ FOR T=1 TO 1@@@:NEXT T:GOTO 7@ 
174 REMK*XX*kEUG IN ACTIONKKKEX 

189 R=INTCRND*4)4+1:PEN FR 

19@ IF R=i1 THEN BORDER INT CRNDK246):S 

OUND 1,18 
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2O@ IF R=2 THEN FOR T=i TO 2@:LOCATE 
INT (RND*Z9) 41, INT(RND*22)4+12PRINT C 

HR& CINT (RND&24) +42) 2NEXT T 

219 If R=2% THEN FOR X=1 TQ Zee@:PLOT 

X, INT (RNDKZ99) 41, INT(RNDK4) :DRAW X, X 

=NEXT X 

22@ IF R=4 THEN FOR T=1 TO 2@:SQUND 
~T,1S5:PEN 2:SQUND 1,2xT,15:PEN 2:NE 


22@ FOR T=1 TO 22@@:NEXT T 
24@ N=F+INT (RND*12)—-INT CRNDK12) 
5S@ LOCATE INT CRND*X2324+1, INT CRND&22> 


24@ PRINT N 

27@ FOR T=1 TO 2@@:NEXT T 

2B@ RETURN 

294 REMKXKWINKXXK 

20@ CLS 

%1@ PEN 1 

%2@ LOCATE 4,1 

%Z0 INK 1,1,26 

Z4@ PRINT "WELL DONE, YOU HAVE DEBUG 
GED" 

Z5@ LOCATE 4,12 

240 PRINT “YOUR COMPUTER IN";A;"ATTE 
MPTS" 

270 FEN 2 

zB@ GOTO z8ea 

Z9Q REMK*KINSTRUCTIONS&&X 

4@@ CLS 

41@ PRINT TAB(12);"R OM BU G" 
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42@ PRINT:IPRINT 

429 FRINT “You must search fer the R 

OM PUG that is damaging your beloved 
Amstrad. You dc this by scanning 
?Arnoeld’s’ memory map between addre 
ss 424@0 and 64000" " 

44@ PRINT:PRINT "From time tc time v 
cu may see the ROM BUG in acticn, 
fiddling arsund with the display. bu 
* what it dcossn’t know is that as 
it does this, a number appears scm 
ewhere on the screen" 

45@ PRINTIPRINT "That number is very 
close tc the ROM BUG?s positiscn. 

46@ FPRINTISPRINTIPRINT TAB(14):2"GNROD 
LUCK" 

47% WHILE INKEY$="":WEND 

48@ RETURN 
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BRAIN GAMES 


These are games of mental logic and concentration; luck 
is of only minor importance as you battle with the difficult pro- 
blems that your Amstrad sets for you. 

Many of the earlier computer games were of this variety 
as the early machines lacked the speed, graphics and pro- 
lific memory requirements which are demanded by the games 
of today. Don’t underestimate these games, however, as they 
are all well worth a go and will set your mind to work when 
your zapping fingers need some rest. 


131 


Dynamic Games - Amstrad 


CUBE MASTER 


Here is a two-dimensional variant of that most addictive puz- 
zle, the ‘Puzzle Cube’ from Hungary. You start off with a cube 
displaying the following: 

1 1 -2.-2 


The computer will mix the cube up and you must get it back 
to its original state. The numbers on the cube rotate in groups 
of four in a clockwise direction. The key to rotating the elements 
is shown below: 


23 4 
Go 7-8 
10 11 12 


What more can | say than “Good luck Cube Master?” 


10 REM****kCUBE MASTERKKXX 
29 INK 1,26:PEN 1: INK 9,5 
3@ RANDOMIZE TIME 

4@ DIM B(146).,A(4) 

5® CLS 

60 B=1:F=0 

7® FOR D=1 TO 4 

Be C=a 

90 IF B=1 THEN C=1 

100 IF B=3 THEN C=2 

11@ IF B=9 THEN C=3 

12@ IF B=11 THEN C=4 

136 B(B)=C 

14@ BCB+1)=C 
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15¢@ 
160 
170 
189 
198 
20@ 
210 
228 
258 
240 
200 
260 
27®@ 
280 
=9@ 
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BCB+4)=C 

B(B+5) =C 

C=9 

IF B=1 THEN C=2 

IF B=3 THEN C=6 

IF B=9 THEN C=2 

B=B+C 

NEXT D 

GOSUB 42@ 

PRINT: PRINT 

IF F<1ii THEN PRINT "TWISTING NOW..." 
F=F+1 

FOR P=1 TO 90@@:NEXT P 

IF F<il THEN X=INT(CRND*12) +1 

IF F>19 THEN PRINT "ENTER YOUR TWIST 


CHOICE (2-12) BUT NOT 2 OR 9" 


300 
3106 
Qa 


Wh 
s 9 


WA A Ae 
> 
& 


wow 
a 
Ss 


pa b 
—~ & 
s ¢$ 


IF F>1@ THEN INPUT X 
IF X<2 OR X=S OR X=9 OR X>12 THEN 28 


AC1)=B(X) 
AC2)=B(X+4) 
ACS) =B(X+3) 
AC4) =B(X-1) 
BCX) =A(4) 
B(X+4)=A(1) 
BCX+3) =A(2) 
BCX-1) =A(3) 
GOSUB 43¢@ 
F=F+1 

GOTO 28@ 
CLS 
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44@ SOUND 1. INT (RND&2@@) +50 

45@ BORDER INT (RND*25) 

46@ PRINT:PRINT:sPRINT 

47® PRINT TAB(15)3 

480 FOR B=1 TO 14 

49@ PRINT BC(B); 

5@0 IF B/4=INT(B/4) THEN PRINT:PRINT TAB 
(15)5 

519 NEXT B 

S20 PRINT:PRINT 

5z@ IF F<1@ THEN PRINT:PRINT “TWIST NUMB 
ER":F 

54@ FOR T=1 TO S@@:NEXT T 

S50 IF F>1@ THEN PRINT: PRINT "YOUR CUBIS 
T TWIST NUMBER"; F-1@:PRINT 

S6@ IF F<il THEN RETURN 

57®@ F=0 

SB8@ IF B(1)=1 AND BC(2)=1 AND B(3)=2 AND 
B(4)=2 AND B(S)=1 AND B(4)=1 AND B(7)=2 
AND 8(8)=2 THEN P=P+1 

590 IF B(9)=3 AND B(10)=3 AND B(11)=4 AN 
D B(12)=4 AND B(12)=3 AND BC14)=3 AND BC 
15)=4 AND B(16)=4 THEN P=P+1 

60@ IF P<>2 THEN RETURN 

610 PRINT:PRINT "YOU SOLVED IT IN JUST"; 
F-14;"TWISTS" 

620 PRINT:SPRINT:PRINT "WELL DONE CUBEMAS 
TER! !"sEND 
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SOLITAIRE 


No-one is sure where this game originally stems from. Some 
say that it was an old prisoner in the French Bastille who came 
up with this way of amusing himself and other prisoners, others 
claim it was the Greeks using pebbles laid out in rows. What 
is known is that it has become one of the most well-known 
and infuriating puzzles to solve. 

In this computerised version, you must enter the coordinates 
of the piece you wish to move (the side coordinate first, the 
top coordinate second) followed by the coordinates of the posi- 
tion you wish that piece to be moved to. You must try and 
remove all except the centre piece, removing pieces by jump- 
ing over them into a space. 

If you really cannot solve this puzzle, enter the solution below 
which was kindly provided by George Furlonger. 


Solution: 46-44, 65-45, 57-55, 37-57, 45-65, 75-55, 73-75, 63-65, 
54-56, 57-55, 25-45, 55-35, 75-55, 34-54, 36-34, 43-63, 51-53, 
31-51, 32-52, 63-43, 51-53, 43-63, 55-53, 63-43, 34-32, 13-33, 
15-13, 43-23, 13-33, 32-34, 24-44. 


2@ INK 1,26 

3@ INK 0,9 

40 INK 2,0 

5® GOSUB S2@ 

60 GOSUR 20a 

7@ REM*X*kACCEPT MOVEXX** 

8@ FRINT "Which piece do you want to 
move?" 

9@ INPUT A 

1@@ SOUND 1,190,2¢ 

110 IF A=99 THEN GOTO 290 

120 IF A<i1l OR A>77 THEN GOTO 8e 
130 IF A(AI<>79 THEN GOTO 8@ 
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140 PRINT A; "to where"; 

15@ INPUT B 

160 SOUND 1,80, 20 

170 IF B<11 OR B>77 THEN GOTO 150 
188 IF ACB)<>E THEN GOTO 15@ 

199 AC (A+B) /2)=E:A(A) =E:A(B)=79 

200 M=M+1 

210 C= 

220 FOR F=11 TO 75 

230 IF A(FI=79 THEN C=C+1 

240 NEXT F 

250 GOSUB 30 

260 PRINT “There are";:C;:"pegs still 
on the board" 

276 IF C<>1 THEN GOTO 7@ 

2B@ IF Al(44)=79 THEN PRINT "You did 
it, in just"s3ms "moves. ":END 

290 PRINT “Good effort, but you FAIL 
ED. ":END 

ZQ0 REMK*¥XXDISPLAY#XxX* 

21 CLS 

320 FOR T=10@ TO 8@ STEP-2 

3220 SOUND 1.7T,4 

Z4@ NEXT T 

250 PRINT "Enter side ccordinate fir 
st" 


74@ PRINT "“ Enter 7997 toa concede" 
27@ PRINT 
™B0 FRINT " 1 2 3 4 5 6&6 7" 
290 PRINT 


40@ PRINT TAR(S)s 
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41@ FOR D=11 TO 75 

42@ T=10% CINT (D/1@)) 

420 IF D-T=8 THEN D=D+2:PRINT T/10:P 
RINT: PRINT TAB(S);:GOTO 4790 

44@ IF A(D)=42 THEN PEN 2 


4S@ PRINT CHRS(A(DI)5" "5 
46@ PEN 1 
47@ NEXT DsPRINT “ 7" 


480 PRINT: PRINT 

49®@ PRINT “Moves so far:":M 
50@ PRINT 

51@ RETURN 

520 REMEX*£XINITIALISATIONKXX* 
93@ CLS 

54@ DIM A(B7) 

5S5@ E=42 

560 FOR D=11 TO 75 

S7@ T=10*% (CINT(D/19@)) 

SB@ IF D-T=8 THEN D=D+3 

59@ READ A(D) 

600 NEXT D 

610 M=a 

620 RETURN 

63@ DATA 22,324794.79, 79,4 32, 352 
64@ DATA 22,22,79,79,79,32, 52 
550 DATA 79,79,79479,79479,79 
&6@ DATA 79,79, 79.42,79579,79 
578 DATA 79.79,79,794795 79479 
6B@ DATA 22, 224794794794 52, 22 
699 DATA 22,32, 79,479,797 
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FLIPPA 


This is a clever game, which demands a fair amount of brain 
stretching. You are presented with a three-by-three grid which 
contains a mixture of X’s and asterisks. By ‘flipping’ the pieces 
you must finally end up with an ‘X’ in the middle and asterisks 
around the perimeter. 

To ‘flip’ a piece you must enter the number of that piece. 
Flipping any piece changes that piece to change into the op- 
posite character (that is from an X to an asterisk and vice ver- 
sa). The position of the piece that is flipped will also deter- 
mine what other pieces are changed. Hitting a corner changes 
all those pieces adjoining the corner while hitting a middle 
piece on any side causes the two pieces either side of the mid- 
dle to change. Flipping the middle piece results in all the cen- 
tral pieces on the four sides changing. 

The best way to understand and appreciate the game is to 
run it a couple of times just getting to know how the pieces 
move, then try to solve it. 


EMS XKKELIPFAKKXK 
SUE 580 
M A(1) F(a) 
49 M=-1:0=42:X=88:F=a 
5@ RANDOMIZE TIME 
6@ FOR C=t Ta 9 
7@ A(C)=0 
90 IF INTCRND+@.5)=@ THEN A(C) =X 
90 NEXT C 
1@@ GOSUE 292 
1@ M=M+1 
12@ N=@ 
120 FOR C=1 709 
140 IF A(C)=X THEN N=N+1 
150 NEXT C 


lor 
2@ 60 
mr 
ae 
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16@ IF N=t AND ACS)=X THEN =7e@ 
17@ PRINT: PRINT: PRINT 

18@ IF M?® THEN PRINT:FRINT "THAT WA 
S MOVE: "= 

19@ PRINT:PRINT "NUMBER OF X75 IS"sN 
2Q@ PRINT:FRINT “YOU ONLY NEED ONE I 
N THE MIDDLE squaRe" 

219 PRINT:FRINT “WHICH ONE pe YOU WA 
NT TO FLIPS?" 

229 IF INKEY#<2"" THEN 22e 

2z@ AS=INKEYS 

240 N=VAI (CAG) :IE Net OR NO THEN 22e@ 
25@ F=N 

268 GOSUB 4e@ 

278 GOTO 128 

298@ END 

29@ CLS:PRINT: PRINT 

209 IF PL>@ THEN PRINT "YCU FLIPFED" 
a 

Z1i@ PRINT:PRINTIPRINT "1 2 3". CHRE(A 
(L))3" "SCHRS(ACZ)IS" “ECHRE(ACZ)) 
Z2@ PRINT 

ZZO PRINT "4 5 6", CHRE(A(4))2" "SCHR 
BCACS)) 3" “sCHRE(A(G)) 

Zae@ PRINT 

=E@ PRINT "7 8 9", CHRS(A(7))3" "SCHR 
$S(ACBY) 2" “SCHRE(A(9)) 

2468 RETURN 

27@ PRINT: FRINT 

280 PRINT "YOU SOLVED IT IN JUST"=M; 
"MOVES" 
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140 


290 END 
4ag 
41@ IF Net 
rF(4)=19 
427@ IF N=2 
@:F(4)=18 
420 IF N= 
:F(4)=10 
440 IF N=4 
O:F(4)=18 


45@ IF N=5 


4&@ IF N=& 
@sF(4)=198 

47@ IF N=7 
:F(4)=10 

49a IF N=8 
M:FC4)=18 
499 IF N=9 
2F(4)=10 

598 
S19 


320 


F=@ 


Se 
34@ 
y=X 


359 


NEXT G 
ACN) =X 
RETURN 


549 
S72 
38a 


394 CLS 


FOR G=t 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


THEN 


TO 4 


TF ACN) =X THEN RETURN 


F(t }=2sF (2)=42F C25 


FCLH=BsF (2) =52F Ch Hh 


FCt)HL3F (2) =7:8F (2) =1 


FCLI=23F (2) =428F (2) =9 


F(1)=4:F (2)=5:F (3) =8 


FCL)=73F (CQ. =93F CS) =H1 


FCL)=S:F (2) S52 F Ch} =6 


IF A(F(G))=X THEN F=1 
IF F=1 THEN A(F(G))=Q 
IF F=@ AND A(F(G))=Q THEN ACF (G) 


REMKEKEEXTITLEXEKKKKX 
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S008 INK @,9 


S1@ MODE 1 
620 LOCATE 1,9? 
62@ PRINT “FFFFF OL ITIII FRR 
FP FRPFPP AAAAA"; 
$40 PRINT "F tz I F 
P oF FA Als 
45@ FRINT "“FRFF L I FPPFP 
FO FFFPP AAABA"S 
66@ PRINT "F L I F 
FP a ANS 
S78 FRINT "F LELEL ItItTr FP 
Ee A A's 


68@ FOR T=2 TO 26 
69@ INK 1,T 
7#@ FOR D=1 TO Z@@:NEXT D 
71 SQUND 1, (32-T)*10@,15 
72@ NEXT T 
732@ WHILE INKEY$="":WEND 
74@ RETURN 
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ECHO CHAMBER 


This is a great challenge to your memory which gets more 
and more arduous as you get better and better. The game in- 
volves you trying to remember a number for a longer and longer 
time which you catch a glimpse at for a progressively shorter 
and shorter time. The first number you must guess is usually 
very easy. You have plenty of time to look at it and memorise 


it, but things get harder as the game goes on. 


The computer prompts you at all times and keeps a record 


of your 


score. 


10 REM¥X*XXECHO CHAMBERKX xXx 
20 CLS:PRINT TAB(8);"E C HO C H 


AM 
30 
40 
bel 4) 
6@ 
70 
TO 


BE R" 


Z=INT (RND¥8) +1 
FOR G=1 TO Z+5 


D=RND 


IF D<e. 
IF D>@,. 


NE il) 


25 THEN AS="KIDDO" 
24 AND D<@.5 THEN AS="SMAR 


80 IF D>®.49 AND D<®.75 THEN AS="GEN 


TUS 


90 IF D>®.74 THEN AS="COMPUTER FREAK 


19@ 
110 
120 
139 
14@ 
BER 
15@ 
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K=INT (RNDX32765) +1 


PRINT: 


PRINT 


PRINT: 


PRINT 
"SAS 
PRINT 


PRINT 

"TRY NO."sGs"OUT OF "3Z+5 
PRINT 

“THE NUMBER YOU MUST REMEM 


TSS excise ott! 


140 
17@ 
182 
19@ 
299 
21i@ 
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FOR T=1 TO 186@:NEXT T 

PRINT "X4¥ER"s5K5 "RRXE" 

FOR J=1 TO 8@0/G 

NEXT J 

GOSUB 25@ 

PRINT “O.K. “s:ASs" WHAT WAS THE 


NUMBER?" 


228 
258 
240 
2028 
260 
27a 
28 
29@ 


410 
420 


INPUT H 

IF H=K THEN GOTO 298 

GOTO =9@ 

CLS 

FOR J=1 TO S@oxG 

NEXT J 

RETURN 

CLS 

PRINT "YAY,"sA¢;",YOQU GOT IT" 
PRINT , "RIGHT!" 

PRINT "WHEN READY FOR" 

PRINT "NEXT ONE, PRESS ENTER" 
INPUT C% 

IF C$<>"" THEN STOP 

CLS 

IF G=Z+5 THEN GOTO 420 

NEXT G 

CLS 

PRINT "YOU BLEW IT, "sA% 

STOP 

PRINT “YOU SURE YOU HAVE A PRODI 


GIOUS" 
420 PRINT "MEMORY, "3; AS 


440 


STOF 
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SCRAMBLER 


Here is another great puzzle, which is simple in concept but 
infuriating in practice. You have a string of numbers from 1 
to 9 mixed up by the computer into any order. You must 
unscramble them and get them back into ascending numeric 
order (123456789). 

You enter a number from 1 to 9 and the computer ‘switches’ 
the numbers round. Below is an idea of how the computer 
reacts to your inputted number. 


276458913 Number entered: 1 
319854672 Number entered: 7 
319854276 Number entered: 2 
367245891 Number entered: 1 
198542763 


| think that you’ll probably get the idea from the examples 
above. You must try and complete this puzzle in as few moves 
as possible. 


10 REM*XX£*£*SCRAMBLERKKKKE EX 

2® CLS 

3@ BORDER 14 

49 PRINT:PRINT "Please Stand By..." 
S@ SOUND 1,1@@:SOUND 1,15@:SOUND 1,1 
22 

6@ INK 0,9 

7® INK 1,26 

8@ GOSUB 142 

96 GOSUB 250 

19@ IF A$="123456789" THEN 440 

110 M=M+1 

120 GOTO 90 

130 END 


142 
1508 
160 
178 
18@ 
198 
2a@ 
210 
220 
239 
240 
2090 
260 
27@ 
280 
270 
300 
210 
320 
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RANDOMIZE TIME 
M=1:X=0 

As="" 

FOR T=1 TO 9 
L=INT (RND*¥9) +49 
Q=1 


IF MIDS (AS,Q@,1)=CHRS(L) THEN 18@ 
IF Q<T THEN Q=Q+1:GOTO 200 


AS=A$+CHRS (L) 

NEXT T 

RETURN 

REM**X*PRINT STRINGX* 
CLS 

PRINT: PRINT:PRINT 


PRINT "MOVE NUMBER: "3M 


PRINT: PRINT: PRINT 
PRINT AS 
PRINTs PRINT 


PRINT:PRINT “WHICH NUMBER TO REV 


ERSE" 
IF INKEY$<>"" THEN 236 


330 
340 
350 
260 
379 
380 
390 
4@0 
410 
420 
430 


SOUND 1,600 
C$=INKEYS 

R=VAL (C$) 

IF R<1 OR R28 THEN 3 
BS="" 

FOR T=9 TO R STEP -1 
BS=BS+MID$ (AS, T, 1) 
NEXT T 
AS=LEFTS (AS. R-1)+BS 
RETURN 


x 


rel) 
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44a 
4508 
4&0 
479 
480 
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PRINT: PRINT: PRINT 

PRINT AS 

PRINT: PRINT: PRINT 

PRINT "YOU DID IT, WELL DONE" 
PRINT:PRINT “AND IT TOOK YOU JUS 


T"3sMs "MOVES. " 


490 
5@e@ 


IN?" 


516 
520 
530 


PRINT: PRINT: PRINT 
PRINT "WOULD YOU LIKE TO TRY AGA 


INPUT AS 
IF LEFTS(AG,1)2>"Y" THEN END 
RUN 
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REPEAT 


Don’t go out and buy that memory game consisting of four 
flashing and beeping squares named after a simpleton. You 
would be better advised to type in this computerised version. 
If nothing else, it’s cheaper! 

This program features large square coloured boxes created 
speedily by the Amstrad’s window commands. You must follow 
the sequence of flashing colours by entering the correct 
numeric sequence. The number for each square is as follows: 
Top left=1; top right=2; bottom left=3; bottom right=4. 

The computer offers a sequence of up to 40 squares. I’d 
be most pleased to hear from anyone who can stretch their 
memory to anywhere near that number. | can only remember 
10 or so before making a mistake. 


1@ REM*XkxX*X*REPEAT KX KKK 
29 SOSUB 66@ 
30 GOSUB Ste 
4@ GOSUB 278 
5@ REMX*XxX**xMAIN GAME ACTIONKX**x 
6@ FOR G=1 TO 46 
7@ FOR N=1 TO G 
) PAPER #T(N),@ 
CLS #T(N) 
SOUND 1,7(N)x1@0, 40 
FOR T=1 TO 2@@:NEXT T 
PAPER #T(N).C(TC(N)) 
CLS #T(N) 
NEXT N 
FOR D=1 TOG 
AS=INKEYS:IF A¢t=""" THEN 148 
IF VAL (AS) <>T(D) THEN 28@ 


0 0 
o ¢ & 
Dn] 


a es 
en) 


Po oe > ee = ey 
“wo Oo On f WW oh) or 
be] Sy © 


& 


9 ® 
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18@ PAPER #T(D?,#8 
19@ CLS #7 (D3 

20@ SOUND 1,7T(D)x*ie¢e.5e 
21@ FOR T=1 OE 

eee PAPER #T(D?,E(T(D?? 
228 CLS #7 CD) 


ZBQ REMKXX*WRONG GUESS&*&xxx 
29@ BORDER @ 

20@ MODE 1 

Z1i@ INK @,@ 

220 LOCATE 12,12 

Z2@ PRINT “UNLUCKY....YOU Lost" 
z4@ PRINT 

ZEQ PRINT TAB(4):"YOU GOT ":N-1: "NUM 
BERS CORRECT" 

26@ GOTO 24a 

37@ REMKXXXSCREEN DRAWKKEx 

2B@ INK 1,24 

29@ INK 9,18 

4@@ MODE © 

41@ INK @,@:FAPER @ 

42@ CLS 

4Z@ LOCATE 5.1 

44@ PRINT "REPEAT 

45@ WINDOW #1,1.2.5.14 

460 WINDOW #2,12.19.5,14 

47@ WINDOW #3,1.8.16,25 
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48@ WINDOW #4.12.19,16,25 
499 PAPER #1. 
Sa@ FAPER #2, 


S 


PAPER #26 
PAPER #4,1 
CLS#1:CLS#2:CLS#Z:CLSH#4 
RETURN 

REMAX KK INITIAL ISAT ION KX 
DIM T(4@) 

FOR X=1 TO 4@ 

B@ T(X)=INT(CRND*4) +1 

S92 NEXT X 


cn cn cn in 
Ch f ta fore 
Ss > > & 


~ 


th ch cn tA 
> 
Ds) 


620 C(SI=6 
6408 1(4)=1 


65@ RETURN 
66@ REMKX*X*K*XTITLE SAGEX*XKX 
67@ CLS 
686 FOR G=1 TO Be 
6908 INK 1,6 
79@ FEN 
71@ IF G/4=INT (6/4) THEN PRINT 
72@ FRINT "XKKK XKEKK KXKKK KKK 
OOK OK: 
728 PRINT "x x * x xk x 
x b x"; 
74@ PRINT "*4kx*e xxx *X¥XXK KKK 
Loo © © 3 x" s 
750 PRINT "x x x x x 
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x * e": 
76@ PRINT "x K¥ KKK * EXE 
x x * x": 
778 SOUND 1, (15*E)+4e 
73@ FOR T=1 TO 2Z@@:NEXT T 
798 PRINT: PRINT 
2a@ NEXT G 
Bi1@ WHILE INMKEYs=""sWEND 
82e@ RETURN 
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GAMBLING 
GAMES 


| doubt if there are few people who have not indulged in some 
form of gambling. Everywhere there are chances to risk a few 
pennies in order to win a few pounds. The race track, Bingo, 
Football Pools and the Casino are just four of the many ways 
in which you and your money can be parted. 

In this section of the book is a possible aid to your gambl- 
ing resources. You can indulge in the same gambling activities 
using computerised cash that can be replenished simply by 
typing RUN. 

The games in this section are based mainly on those found 
in the casino. The highlights of this chapter are an excellent 
graphical simulation of a one-armed bandit and a most realistic 
game of pontoon where you try your luck against the com- 
puter’s skill at the card table. The cards are represented 
graphically in this program. 
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PONTOON 


As mentioned in the introduction, this version of the popular 
card game Pontoon is most realistic. The cards with their suits 
are dealt face down on the green baize of the card table. The 
computer turns your cards over. As dealer he keeps his face 
down. You must try to get a total as near to 21 as possible 
without exceeding that figure. To get more cards, you ‘twist’. 
To stay at the total you have at that time you ‘stick’. Pontoon 
is achieved when you are originally dealt an ace and a pic- 
ture card (worth 10). In this version of the game, you must 
nominate whether the ace is high (counting numerically as 11) 
or low (counting as one). You may wish the ace to be low when 
you are trying to achieve a five card trick. 

The program involves some logic thinking from the computer 
which will not be as foolish to twist on a total of 18 or more. 
The computer also determines its strategy from the running 
score. It plays most cautiously when it is in front. 

Allin all, you should find this program very entertaining and 
not much different to playing the game against a human player. 


1@ REMX***£% £PONTOONES &*KX 
2@ CS=@:PS=0 

3@ DIM AS(8).C(52) 

4@ WINDOW #1,8,22,12,12 

SO REM**4K*GAME STARTS &4"x 

6@ PAPER #1,1 

7@ PT=0:CT=0 

8@ PV=@:PP=0 

9@ FP=0:FC=0 

1@@ CP=0:CN=0:PN=@ 

119 A$(1) =CHRS (150) +CHRS$ (154) +CHRS (154) + 
CHRS (154) +CHR$ (154) 

12@ A$ (2) =CHR$ (149) +CHRS (207) +CHRS (207) + 
CHRS (207) +CHRS (149) 
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FOR Z=1 TO S:A$(Z+1)=AS(2)SNEXT Z 
AS (7) =CHRS (147) +CHRS (154) +CHRS (154) + 


CHRS (154) +CHRS (152) 


159 
140 
1708 
180 
198 
200 
210 
220 
2aQ 
248 
250 
260 
z27@ 
280 
290 
3Q0 
312 
4 
32@ 


PEN 1 
INK 1, 
INK 2, 
INK 3, 
INK @, 
BORDER 
FOR T=1 TO 52:C(T)=@:NEXT T 

CLS 

CLS #1 

PRINT TAB(S);"P ON TQON" 

PRINT TAB(4) 3 "======s=s==s=====" 
LOCATE 28,1:PRINT “COMPUTER: ":CS 
LOCATE 30,2:PRINT "PLAYER: ":PS 
GOSUB 850: REMK**4kKSHUFFLE KEES & 
REMXXXXXMAIN GAME KEK 
REM&4X*xDEAL CARDS**4%x 

FOR DC=1 TO 2:C=C(DC):LOCATE (7*DC), 


& 


0 Oo S 


FOR Z=1 TO 7sLOCATE (7%*DC)-&6, Z+3:PRI 


NT ASCZ)SNEXT ZsNEXT DC 


32Q 
248 
350 
360 
379 
%BO 
29@ 
409 


DC=2 

REMKX*£X*XPLAYER’?S CARDSXXKXXxX 
V=14 

DC=DC+1:C=C (DC) 

REM*X*x*CARD MANIPULATIONKR XX 

IF (<14 THEN S$=CHRS (2264) 

IF C<27 AND C313 THEN SS=CHRS (227) 
IF C>246 AND C“40 THEN SS=CHRS$ (228) 
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41@ IF C229 AND C<S2 THEN SS=CHRS (229) 
420 IF C<14 THEN NC=C 

420 IF S$=CHRS (227) THEN NC=C-12 

44@ IF S$=CHRS(228) THEN NC=C-26 

4S5@ IF S$=CHRS (229) THEN NC=C-29 

46@ NCS=STRS (NC?) 

47@ IF NC=1@ THEN NC$=" 7" 

480 IF NC=11 THEN NCS=" J"“:NC=10 

49@ IF NC=12 THEN NCS=" Q"3NC=10 

S@0 IF NC=12 OR NC=26 OR NC=29 THEN NCS= 
" K"sNC=10 

31@ IF NC=1 THEN NES=" A"NSIF RNDS@.5 THE 
N NC=1 ELSE NC=11 

S2@ IF NC=11 AND RC=1 AND CN>= THEN NC=1 
S26 IF NC=11 AND RC=1 AND CT>16 THEN NC= 
1 

540@ IF (NC=1 OR NC=11) AND RC<>1i THEN NC 
$=" A™SINPUT #1,"ACE VALUE 1 or 11":AH:N 
C=AH:CLS #1 

55@ IF V=14 THEN FT=PT+NC:PN=PN+1 

968 IF V=4 THEN CT=CT+NC: CN=CN+1 

57@ CP=CF+1:IF CP>S THEN CP=1 

388 GOASUER 960 

390 IF DC=2 THEN 348 

609 IF CN<2 AND PC=1 AND PN?>1 THEN GOTO 
360 

61@ IF DC=2 OR RC=1 THEN RC=@:GQTO 744 
620 REMXEXX¥XFPLAYER CONTROLEX*kKX 

6230 IF PT>21 THEN GOTO 1120 

64@ IF PN=5 THEN GOTO 1248 

65@ IF PT=21 AND PN=2 AND (NCS=" A" OR N 
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Cs=" J" GOR NCS=" K" OR NCS=" QA") AND Cz 
)£€21@ AND C(PI<C>2z AND C(2z)<326 AND CCS) 
<>49 THEN GO 

TQ 1280 

66@ LOCATE 1,22:PRINT " 


679 LOCATE 1,23: INFUT "To stick, press ” 

S’. To twist, press *T?"3AS 

68@ AS=UPPERS (AS) s: AS=LEFTS# (AS, 1) 

690 IF A¢="S" THEN GOTO 7194 

7OO IF AS="T" THEN DC=PN+4:GNTO 24a 

71® REMKX**XKCOMPUTER STRATEGY *Xk*k 

720 CP=0:V=4:DC=o8 

720 RC=1:1IF DC*2 THEN GOTQ 36a 

74@ REM 

75@ IF CT?}21 THEN GOTO 118@ 

76® IF CN=5 THEN GOTO 1zee@ 

77® IF CT=21 AND CN=2 AND (NC#=" A" OR N 

Cs=" J" OR NCS=" K" OR NCH=" Q") AND Cll 
»<>1@ AND C(1)4>22 AND C(1)<>26 AND C1) 

<>49 THEN GO 

TO 1430 

78@ IF FP=1 OR FP=1 THEN 1512 

790 IF PT=CT AND CS>PS AND RND>@.2=2= THEN 
GOTO 1620 

80@ IF CT=PT AND CN>1 AND CT>10+CINT (RND 
*¥4)) THEN GOTO 1639 

B10 IF CT<18 AND CT<FT THEN DC=PN+CN:RC= 
1:GOTO 24a 

B20 IF PT?SCT THEN 151@ 

82@ IF CT>PT THEN 1570 
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840 IF CT=PT AND PN>1 THEN 14230 

BS@ REMK*£*xxSHUFFLE CARDS***Xxxk 

8466 N=S2:FOR I=1i TON 

B70 CCI)=IENEXT I 

880 FOR I=1 TO N-1 

890 R=(N+1—-1) *RND 

900 R=INT(RI+E 

91@ T=C(R) 

920 CCR)=C(I) 

92@ C1) =T 

94@ NEXT I 

95@ RETURN 

960 REMK*XXEPRINT CARDS*KXx 

970 LOCATE (7xCP)-6,V 

°B® PEN 1 

99@ PRINT CHRS$ (15) s CHRS (154) s CHRE (154) =: 
CHRS$ (154) s CHRS (156) 

1@6@ FOR T=1 TO 5S 

101@ LOCATE (CP*7)-6,V+T 

1020 IF T=1 AND (SS=CHR# (227) OR S$=CHRS 
(228)) THEN PRINT CHRS(149)::sFEN 2:PRINT 
S$3;" “"s:PEN 1:PRINT CHRS(149):GOTO 108 

9 

1036 IF T=1 AND (S#$=CHRS(226) OR S$=CHRS 
(229)) THEN FRINT CHRS(149);3:sFEN 2:PRINT 
Ss" “3s :PEN 1:PRINT CHR#(149):GOTO 198 
2 

164@ IF T=3 THEN PRINT CHR#(149)3NCHS" " 
3; CHRS (149) 

1@5@ IF T=5 AND (SS=CHRS (2246) NR SS=CHRSE 
(2293) THEN FPRINT CHRS(149)::2PEN 2: PRINT 
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" "3S¢2:PEN t:PRINT CHR$(149):GOTO 1080 
1@6@ IF T=5 AND (S#=CHR# (227) OR S$=CHRE 
(228)) THEN PRINT CHR$(1492::PEN 2:PRINT 
"  "3S$::PEN t:PRINT CHR$(149):G0TO 108@ 
107@ PRINT CHR#(149):" 9 ""sCHRS (149) 
1@8@ NEXT T 

199@ LOCATE (CP*7)-6,V+T 

11@@ PRINT CHRS (147) sCHR$ (154) s CHRS (154) 
3 CHRS 6154) s CHR$ (152) 

111@ RETURN 

112@ REM***x*PLAYER BUST #0 

113@ CS=CS+1 

114@ PEN #1.2 

115@ PRINT #1."Y Ou" VE BUST" 
114@ GOSUB 1700 

117@ GOTO Se 

118@ REM***xCOMPUTER BUST&X"* 

119@ PS=PS+1 

120@ PEN #1,= 

1219 PRINT#1," I7 VE BUST!" 
122@ GOSUB 1700 

230 GOTO 5@ 

1246 REM*X*PLAYER 5 CARD TRICK*ex 

125@ PEN #1, 

126@ PRINT #1."5 CARD TRICK" 
127@ FP=1 

128@ FOR T=1 TO 24@0:NEXT T 

129@ GOTO 718 

13@@ REM***COMPUTER 5 CARD TRICK*#xx 

121® FC=1 

122@ IF FP=1 AND FC=1 THEN PEN #1,4:PRIN 
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T#1,"2 SQ HAVE I '":G0TO 1620 

1220 PEN #1,2 

1740 PRINT #1."5 CARD TRIC K" 
125@ IF PP=1 THEN FOR T=1 TO 2@0@:NEXT T 
:PRINT #1, "PONTOON BEATS 5 CARD! ''":GOTO 
151@ 

124@ FOR T=1 TO 3@0@:NEXT T 

127@ GATE 1570 

1289 REM*XX*PLAYER PONTOONS** 

129 PEN #1, 

140@ PRINT #1."YOU PONTOON!" 

1410 PP=PF+1 

142@ GOTO 71e 

143@ REM**XCOMPUTER PONTOONKX* 

144@ IF PP=1 THEN GOTO 151 ELSE PEN #1, 


"> 


1450 PRINT #1,"M Y PONTOQN!" 
144@ PV=PV+1 

147@ IF PV=1 AND FP=1 THEN FOR T=1 TO 3 
@@:NEXT T:PEN #1,4:PRINT #1,"S 0 HA 
VE YO U":G0TO 1426 

148@ SOUND 1,70:SQUND 1,7@:SOUND 1,8¢,4@ 
149@ FOR T=1 TO 30@0:NEXT T 

150@ GOTA 1570 

151@ REM*x*PLAYER WINS BY GREATER SCORE* 
*x 

1520 PS=PS+1 

153@ PEN #1,2 

154@ PRINT #1," you WIN?" 
1556 GOSUB 1760 

1566 GOTO Se 


@ 
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15796 
Exxx 
1588 
15°90 
1484 
161% 
1626 
14634 
14646 
1456 
1660 
1670 
16890 
1690 
17%@@ 
1719 
1726 
1720 
1740 
175@ 
1748 
1778 
1788 
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REM**xCOMPUTER WINS BY GREATER SCOR 


CS=CS+1 
PEN #1.2 

PRINT #1," I WIN? 
GRASUE 17e0 

soTC se 

REMKX*kKIT’S A DRAWKKK* 

PEN #1.4 

PRINT #1."I T? S A DRAW" 
WHILE INKEY$="":WEND 

PS=PS+1 

CS=CS+1 

GATTO 5e 

REM*xk*xxxMESSAGE ROUTINE*** kx 
PEN = 

LOCATE 9,25 

PRINT "PRESS A KEY TO CONTINUE" 
PEN 1 

SQUND 1, INT(RND*1@0) +504 (S@*CS) 
WHILE INKEY$="":WEND 

CLS #1 

RETURN 
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DOUBLE DICE 
THROWER 


This useful program can be used as it is as a thrower for 
any board game. Both dice can be used as in Backgammon 
or just one dice as in a number of games. This program could 
added to a computer game where dice are needed. Press 


be 


any key to throw the dice. 
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1G REMEKEKKEKEKKKKKKASKKEKAEKKAKKKKK 
x 
=@ REM**** DOUBLE DICE THROWERX*xXxx*x 
x 
TQ REMEXXKEEKEREA KEKE ERE KKE EK 


4® GOSUE 2Z0@ 

2@ RANDOMIZE TIME 

69 CLS:PRINT:PRINT "Fress a kev to t 
hirow the dice" 

7@ BORPER INT CRND*246) +1 

8@ IF INKEY¢=""" THEN 8@ 

9@ CLS:LOCATE 10,9 

19 PRINT CHRS (150) ; CHRS (154) s CHRS (1 
24) ;CHRS (154) ; CHRS (154) s CHRS(154);CH 
RECLS4) ; 

11@ PRINT " "; CHRS (150) sCHRS (154 
Y;CHRS (154) s CHR (254) 2 CHRS (6154) = CHRS 
(154) ;CHRS (4154) 

120 FOR T=1 TO VY: FRINT TAR (1@)s"i"e: 
PRINT TAB(16)2"i";:PRINT TAB(22)3"t" 
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;=PRINT TAB(28)3"!"; 

12@ NEXT T 

14@ LOCATE 10,17 

15@ PRINT CHRS (147) :CHRS (154) sCHRS(1 
54) :CHR$ (154) s CHR$ (154) : CHR$ (154);CH 
R$(152); 

16@ PRINT " ";CHRS (147) ;CHRS (154 
) ;CHRS (154) sCHRS$ (154): CHRS (154) sCHRS 
(154) = CHR$ (152) 

17@ R=INT(RND&6) +12 RR=INT (RNDKS) +1 
180 X=0 

19@ ON R GOSUB 250,270, 22¢, 270, 420, 4 
Be 

200 X=12 

219 ON RR GOSUB 250,270,320. %7a 47a 
480 

22@ SOUND 1,15@,19@:SOUND 2,143,100 
220 FOR T=1 TO 20@@:NEXT T 

24@ GOTO 4@ 

25@ LOCATE 12+X,13:PRINT "x" 

26@ RETURN 

27 LOCATE 15+X.11:PRINT "x" 

2B@ LOCATE 11+X,15:PRINT "x" 

299 RETURN 

2@@ SYMBOL AFTER 22 

219 SYMBOL 42,56,124, 254, 254, 254,124 
56,9 

=2@ RETURN 

Z2@ LOCATE 123+X,12:PRINT "*" 

24@ LOCATE 11+X.15:PRINT "x" 

25@ LOCATE 15+X,11:PRINT "x" 
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3260 
270 
2B 
398 
422 
412 
422 
428 
44@ 


+ > 
@ © 


tA 
S 


nana a uw 
Aon D 
S 


2 
S 
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RETURN 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
RETURN 


154+X.11:PRINT 
15+X,15:PRINT 
11+X,15:PRINT 
11+X.11:PRINT 


1Z+X,12:PRINT 
11+X,15:PRINT 
15+X, 11:PRINT 
154+X,15:FRINT 
11+X,11:PRINT 


15+X.1Z:2FPRINT 
11+X, 15:sPRINT 
154+X,11:PRINT 
15+X, 15:PRINT 
11+X,11:PRINT 
114+X,13:PRINT 


gs 
spi 
si 
singe 


ee 
ie 
<i 
er 
ee 


ge 
age 
digi 
ae 
“<3 
a. 
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BIRD CAGE 


Bird Cage is a dice game which is often found in American 
Casinos. Three dice are held in a metal cage which can be 
spun. Before the cage is spun around, you place your bet on 
the number you think will come up. If one dice shows that 
number then you receive your money back. If two you get (in 
addition to your original bet) the value of your bet again. If you 
are lucky enough to get all three dice landing showing your 
chosen number, you get twice the size of the bet as well as 
your original stake. 

Though the odds may seem to be in your favour, you will 
probably realise after a number of goes why it is so popular 
with American Casino operators. 


1Q REMERKER SEER OE 

2@ REM*****BIRD CAGE*kk*x 

70 REMUS OOO KE 

4@ RANDOMIZE TIME 

50 M=z@ 

6@ INK 1,.@ 

7@ INK 6.7 

8® CLS 

9@ BORDER INT(RND&24) +1 

19@ SOUND 1, INT (RNDKZG@) +50 

11@ LOCATE 7,2:PRINT "BIRD c 
A G E":PRINT 

120 GOSUB 34a 

12@ PRINT: PRINT 

149 INPUT “HOW MUCH WOULD YOU LIKE T 
O BET"sA 

15@ IF A>M THEN 142 

14@ M=M—-A:PRINT:PRINT 
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17@ PRINT 

18@ INPUT “WHICH NUMBER ARE YOU BETT 

ING ON";B 

199 IF Bei OR B>6 THEN 1864 

2®@ FOR C=1 TO = 

210 W=@ 

229 GOSUB 42@@ 

22@ D=INT (RND&4) +1 

240 PRINT: PRINT "DIE"sCs"FELL"sD 
2092 IF D=B THEN W=A:PRINT "SO YQU WI 
N $"3W 

260 M=M+W 

27% GOSUB 340 

2BO NEXT C 

290 GOSUB 40@:GOSUB 480 

30@ IF M>25@ THEN 430 

310 IF M>@ THEN 8@ 

320 PRINT "THE GAME IS OVER... YOQU’RE 
BROKE!" 

320 SOUND 1, INT (RND&4@0) +400 

340 FOR T=1 TO 80:NEXT T 

35@ GOTO 22@ 

360 PRINT "XXKKEKKERKKEKKKKKKKEKK EK 
KXXKKEKEKEKEK" 

270 PRINT "™ YOUR STAKE IS NOW $":M 

3BQ PRINT “XXKKKKKKKKKEKKKKEKKKEKKEX 

KEXEKEAKKKEKK" 

399 RETURN 

4@0 FOR P=1 TO 19000 

41@ NEXT P 

420 RETURN 
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430 FOR J=1 TO 30 

44@ PRINT “YOU?VE TOPPED $250!" 
45@ PRINT TAB(J):"WELL DONE!!" 
4460 NEXT J 
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CARD 
DEMONSTRATION 


Here is the important section of the routine used in the first 
game in this section to display cards graphically. With this 
routine, you can create your own card games with more realism 
than a simple text message like “You have been dealt the Ace 
of Diamonds and the Ten of Spades.’ 


1@ REM***xx*xCARD DEMCNSTRATION&K*** 


Zo INK 1,264 


9@ FOR C=1 TO §2 
IF 0¢14 THEN S#=CHRS (226) 
7 AND C>1Z THEN SS=CURS (22 


12 IF ©2234 AND 440 THEN SS=CHRE (22 
2@ TF C>Zz9 AND CLE2 THEN SS=CHRS (22 


2 

14@ IF C<14 THEN NC=C 

5@ IF St=CHR#(227) THEN NC=C-12 
6@ IF S#=CHR# (228) THEN NC=C-2é 
17@ IF S#=CHRS(229) THEN NC=C-29 
Pe NCS=STRE (NC) 

90 IF NC=1@ THEN NCS=" TT" 
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2ee IF NC=11 THEN NC¢=" J"sNC=19 
2i®@ IF NC=12 THEN NC¢=" O":NC=10 
2E@ TF NC=12 THEN NC¢=" EU sNC=108 
2ae IF NC=1 THEN NCS=" 4" 


240 CP=CP+1:1F CP>S THEN CP=1:¥=V+8 
25@ TF C=19 THEN PRINT " 


FRESS & KEY":WHILE INKEYS=""sWEND:C 


260 TF C=2z7 THEN PRINT " 


PRESS 4 KEY"SWHILE INKEYS="":WEND:C 


ra] 
< 
Ul 
i il 


274 GOSUP Zae 

Pee NEXT © 

290 END 

ZOO REMKXXXPRINT CARDS#KKx 

Z1@ LOPATE (CP*7)-4,4 

220 PEN 1 

ZZ PRINT CHR (150) :CHRS (154) :CHRS (1 
54) ;CURs (154) ;CHRE (154) 

24 FOR T=1 TO 5 

ZE@ LOCATE (CE*7)-4,V4T 

Zé IF T=1 AND (S#=CHRS (227) OR S#=C 
HR¢(228)) THEN PRINT CHRS(149)::PEN 
SPRINT S#s"  "::PEN 1:PRINT CHRE(14 
9):GOTO 42@ 

Z7@ IF T=1 AND (S#=CHRE (224) OR S$=C 
HR$ (229)) THEN PRINT CHR¢ (149); :PEN 
2:PRINT Sts" “::PEN 1:PRINT CHRE (14 
9):G0TO 42@ 

Z2@ IF T== THEN PRINT CHR#(149):NC#;: 
" 42 CURS (149) 


ra 
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290 IF T=5 AND (SE=CHRe (224) OR Ssall 
HREe(22°)) THEN PRINT CURE (149);:FEN 
SEPRINT" "3Se::PEN tsPRINT CHRS (149 
Y:GNTO 42a 

4He TF T=5 AND (S#=CHR¢ (227) OR SS=C 
HRE(220)) THEN PRINT CHRE (149);5:FEN 
SZsPRINT" “sGsesPEN LePRINT CHRE (149 
,:GOTO 426 

42.9 PRINT CHRE(149);" "s CHES (149) 
42@ NEXT T 

42@ LOCATE (CF*7)-&.V+5 

44@ PRINT CHEE (147) 3 CHRE (154): CHS (i 
S4) 3: CHRS (254) sCHRS (2 ER) 

4i@ RETURN 
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UNDER OR 
OVER 


Here’s an enjoyable dice game which involves you betting 
on the likelihood of the total of two dice equalling seven, com- 
ing to less than seven or more than seven. All instructions are 
included in the game. 


1@ REMX***UNDER OR OVERK*&* 
29 RANDOMIZE TIME 


20 CLS 

4@ M=22 

s@ GOSUB 44@ 

6@ GOSUR 460 

7@ PRINT “OK, PUNTER, ’ITS TIME TQ" 
8@ PRINT "FLACE YOUR BET.......... 
9@ GOSUB 468 

16® PRINT "ENTER 7A” TO BET UNDER 7" 
116 PRINT "ENTER ’B* TO BET ON 7 QR" 
120 PRINT "ENTER ’C? TO BET QVER 7" 
120 AS=INKEYS 

140 IF AS<>"A" AND AS<>"B" AND AS<>" 
C" THEN 120 

15@ PRINT:FRINT “THE QDDS ARE:" 

‘16@ PRINT " A — PAYS EVEN" 

179 PRINT " B - PAYS 4 TO 1" 

18@ PRINT " CC —- PAYS EVEN" 

19@ GOSUB 46a 

2@@ INPUT “NOW HOW MUCH WOULD YOU LI 


KE TO BET":A 
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210 


228 


GOSUB 449 
IF ASM THEN FRINT 


"YOU DON’T HAV 


E THAT MUCH! "PRINT: GOTO 208 


me 
_ 


B=INT (RNDX6) +1 


THEN W=4xA 
THEN W=A 
THEN W=A 


"YOU? VE JUST W 


"AND SO YOU LO 


"YOU"? RE FLAT B 
GO":SOUND 1.90 


PRINT:FPRINT "YOU NOW HAVE $"5M 


240 PRINT "DIE ONE CAME UP";B 
25@ GOSUB 440 

260 C=INT(RND*4) +1 

279 PRINT “DIE TWO CAME UF";C 
280 D=C+B 

290 PRINT ."SOQ THE TOTAL IS";D 
3@O W=-A 

310 IF D=7 AND AS="B" 

220 IF D<7 AND AS="A" 

2Z@ IF D>7 AND AS="C" 

240 M=M+W 

25 GOSUB 440 

2460 IF W>@ THEN PRINT 

ON $":W 

270 IF WK@ THEN PRINT 

SE $"; (Wx-1) 

380 GOSUB 440 

39@ GOSUB 440 

40@@ GOSUB 440 

410 IF M41 THEN PRINT 

ROKE, BUDDY...OUT YOU 

@, 200: END 

42@ CLS 

420 GOTO 5® 

440 

45@ RETURN 

46@ FOR F=1 TO 100@:NEXT P 


47@ PRINT: PRINT 
4890 RETURN 
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ONE-ARMED 
BANDIT 


Good graphics make this a most realistic version of the 
famous gambling machine. The reels rotate showing plums, 
belis and all the other fruit machine favourites. Achieve the 
right combination and you’re in the money. If you are lucky 
enough, you may hit the jackpot. 

This game shows how the graphics on your Amstrad can 
create stunning effects. The reels are text windows defined as 
one character wide. This means that when a character is 
printed in the window the preceding character is moved up 
one space. This gives the appearance of a moving reel. 

The various symbols are all user-defined graphics printed 
in Mode 0 to provide that extra size. All instructions are included 
in the program. 


19 REMKXXKKKKKEKKKEKEERKEKKKK 
29 REM***ONE ARMED BANDIT XxX 
ZO REMKKKKKKKKEKKEKKKEKKE KES 
4@ MODE @ 

S@ PAPER & 

6@ INK 198,15 

7@ BORDER @ 

8@ GOSUB 119@:REMk*instructiansx*xk 
9@ GOSUB 14290 

1@@ RANDOMIZE TIME 

1140 AM=1@ 

12@ JK=100 

126 CLS 

14@ LOCATE 1,1 

15@ PEN i 
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16@ PRINT “ONE ARMED BANDIT" 
17@ PEN 8 

18@ LOCATE 4,4 

190 PRINT "HHH" 
200 FOR M=4 TO 14 

21@ LOCATE 4,.™ 

22@ PRINT" #" 

3@ LOCATE 14.M™ 

240 PRINT" #" 

25@ NEXT 

26@ LOCATE 4,14 

27@ PRINT Hee tHE 
280 LOCATE 5.15 


298 PRINT" /" 
308@ LOCATE 3,16 
21@ PRINT" \ /" 


Z20@ WINDOW #1.4,6,6,11 
ZZO WINDOW #2,9.9,6.11 

Z4Q@ WINDOW #23,12.12,6.11 

35@ FOR FC=1 TO z4e 

36@ DEG 

37@ PLOT 570,250 

ZB PLOT 570+35*COS (FC) , Z5@+35*SIN(FC) 
29@ NEXT FC 

4@@ FOR FC=559 TO 579 

41@ PLOT FC,315 

42@ DRAWR @,-150 

43@ NEXT FC 

440 PAPERH1.4 

45@ PAPERH2, 4 

46@ PAPER#HS. 4 
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47@ 
48@ 
49a 
aaa 
514 
529 
520 
548 
558 
560 
3798 
388 
599 
60@ 
610 
620 
628 
648 
659 
660 
679 
680 
69a 
700 
718 


PEN#1,.8 
PEN#2.8 
FEN#Z.8 
GOSUB 84 
X=INT (RN 


@ 


D*17@) 


AM=AM-1: JK=JK+1 


LOCATE 2 
PEN 3 


s 2d 


PRINT PTS: " 


LOCATE 1 
GOSUB 17 
PRINT" M 
IF AM<1 
PRINT 
PRINT “ 
GOSUB 14 
FOR T=X 
PEN #1,4 
GOTA 154 
PRINT #1 
PRINT#1, 
PEN #2,4 
GOTO 140 
PRINT #2 
PRINT#2, 
PEN #3,6 
GOTO 146 
PRINT #3 
PRINT#S, 
FOR G=1 
NEXT T 


2 2@ 

=O 

oney held:$";AM 
THEN GOTO 1230 


Jackpot: $": JK 
20 
TQ X+INT (RNDX2@) +10 


@ 
~MIDS (AST, 1)3 


8 
»MIDS (BST, 1)5 


@ 
»MIDS(CH,T,1)3 


TO 12x(T-X) NEXT G 
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7B@ WN=90 

79@ GOSUB 97@ 
Bee LOCATE 32,25 
B1®@ PRINT PTS 


B20 PT$="" 
830 PS=INKEY$:IF P$="" THEN 82@ 
849 IF P$="" THEN GOTO 510 


850 GOTO Aze 

869 REMKXX*#REEL DEFINES 4x 

870 AS="":BS="":CE="" 

88@ FOR T=1 TO 255 

B90 AAS=STRS (INT (RND¥1@) ) 

909 AS=AS+RIGHTS (AAS, 1) 

910 BES=STRS (INT (RND*1Q) ) 

920 BS=BS+RIGHTS (BBS, 1) 

920 CC#=STRS (INT (RND*1@) ) 

940 C$=CS+RIGHTS$ (CCS, 1) 

o5@ NEXT T 

96@ RETURN 

970 REMXX*WINNING CHECK **x 

98@ R1=VAL (MIDS (A$, T-2, 1)? 

99@ R2=VAL (MIDS (BS, T-2, 1) ) 

199 R3=VAL (MIDS (C$. T-2, 1)) 

191@ IF (R1i=@ OR R1=5 OR R1=9) AND (R2=@ 
OR R2=5 OR R2=9) AND (RZ=@ OR RB=5 OR R 

3=9) THEN AM=AM+S: SOUND 1.9@,5@:SOUND 1, 

6@, 40: PTS$="Y 

OU WIN $5":RETURN 

1@2@ IF R1=R2 AND R2=RZ THEN AM=AM+R1+R2 

+R3: WN=1 

1@3@ IF Ri=R2 AND R2=RZ AND Ri=t THEN GO 
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TQ 1144 
194@ IF Ri=R2 AND R2=R2 THEN SOUND 1, 40, 
15@,4:PT$S="YOU WIN'! !"s RETURN 


1@5@ IF (Ri=R2 OR RL=RZ OR RZ2=RZ) AND (CR 
1=8 OR R2=8) THEN PTS="YOU WIN $4": AM=AM 
+4: SOUND 1,115,150: RETURN 

1@60 IF Ri=R2 OR Ri=RZ OR R2=RFZ THEN SOU 
ND 1,24@,15@, 4: AM=AM+1:PTS="MONEY BACK": 
RETURN 

1970 SOUND 2,8@0,75 

1908@ PTS="YOIJ LOSE" 

1090 RETURN 

1196 AM=AM+JK 

111@ BORDER @,13 

1126 FOR T=106 TO 3@ STEP-2 

1126 SOUND 1,7,2,7 

1140 NEXT T 

1156 PTS="JACKPOT!" 

116@ WN=1 

1170 RETURN 

1188 RETURN 

119@ CLS 

1206 FEN 1 

1210 PRINT TAB(2);"QNE ARMED RANDIT" 
1220 PRINT 

122@ PEN = 

1240 PRINT" As a visitor ta Las Vegas 
»s you must gamble an the ONE ARMED BAN 
DIT." 

12560 PRINT 

1266 PRINT" You start with $190. Star 
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t the reelsspinning by pressingthe space 
bar" 


1270 PRINT:PRINT" If you get two sta 
rs you win $3. Ifyou get three fruitsyou 
win $4" 

128@ PRINT:PRINT" If you get two ree 


ls the same, thenyou get your mcney = bac 


k. All = & you receive = x value afthe 
character." 

3 

129@ PRINT "3 pound signs and you win 


the jackpot!"; 

1300 WHILE INKEYS$="" 

1210 WEND 

1320 RETURN 

1330 REM*XXxX(GAME OVERKKXK* 

1340 FOR T=1 TO 26 

1350 PRINT 

126@ SQUND 1, 20xT 

1370 NEXT T 

1380 LOCATE &,12 

139@ PRINT “GAME OVER" 

14@@ LOCATE 1,25 

141@ END 

142@ SYMBOL AFTER 32 

143@ REM*xxx4U D G*SxkKxxx 

144@ SYMBOL 48.3,4,8.6@,119,126,124,6@ 
1456 SYMBOL 53, 60,126,255, 255,124,460 
144@ SYMBOL 54,12,12,12,12,12,6@,.124,5& 
1476 SYMBOL 57,56,56, 92, 190, 254, 254,124, 
S4& 
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148@ SYMBOL 55.56,.124, 124,124,124, 254,14 
soa 

149@ SYMBOL 54,16, 146,84,56, 56,84, 144,16 
15@6 SYMBOL 49, 60.142, 96, 96, 248, 96, 102.2 
54 

1510 SYMBOL 51,126, 255, 152, 255, 189,195,2 
55,126 

152@ RETURN 

153@ REM***PRINT CHECKERXE* 

1540 IF MIDS(AS.T,1)="2" THEN PEN #1, 2:P 
RINT #1,CHR#(228);:GOTO 67@ 

155@ IF MIDS(AS.T,1)="@" THEN PEN #1, 7:P 
RINT #1,"@"3:GOTO 670 

156@ IF MIDS(A$,T,1)="4" THEN PEN #1,3:P 
RINT #1,CHRS(227);:G0TO 470 

157@ IF MID#(AS,T.1)="5" THEN PEN #1,12: 
PRINT #1,"°5"3:GOTO 67@ 

158@ IF MIDS(AS,T,1)="9" OR MIDS(AS.T,1) 
="7" THEN PEN #1, 1@:PRINT#H1.MIDS(AS,T, 1) 
3:GOTO 67@ 

159@ GOTN 460 

1600 IF MID#(B$,T,1)="2" THEN PEN #2,3:P 
RINT #2, CHR#(228);:GOTO 71@ 

161@ IF MID$(B$,7T,1)="5" THEN PEN #2,12: 
PRINT #2,"5";:GOTO 716 

162@ IF MIDS(BS,7T.,1)="9" OR MIDS(BS.T, 1) 
="7" THEN PEN #2, 1@:PRINT#2. MIDS (BS, T,1) 
3;:GOTO 710 

162@ IF MIDS(BS,T,1)="0" THEN PEN #2,7:P 
RINT #2,"@";:GOTO 710 

1640 IF MIDS (BS,7T.1)="4" THEN PEN #2,2:P 
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RINT #2, CHRS(227)3;:60TO 719 

145@ GOTN 7aea 

1646 IF MIDS(l$,7,1)="4" THEN PEN #23,3:P 
RINT #2, CHRS (227)3:G0TO 75a 

1470 IF MIDS(C$,T,1)="@" THEN PEN #23,7:P 
RINT #3, "@"3:GOTO 75@ 

14686 IF MIDS(C$,T,1)="5" THEN PEN #3,12: 
PRINT #2,"5"3:GOTO 750 

169@ IF MIDS(C$,T,1)="9" OR MIDS(CS$.T.1) 
="7" THEN PEN #3, 10:PRINT #3,MIDS(CS,7T,1 
3:GOTO 754 

17@@ IF MIDS(C$,T,1)="2" THEN PEN #2,2:P 
RINT #23, CHR# (228)::60TQ 750 

1710 GNTN 74a 

172@ SYMBOL AFTER 254 

173@ RETURN 
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GRAPHICALLY 
SPEAKING 


This chapter is made up of a collection of graphic routines 
and displays that are fun in themselves, but with a little work, 
could be made part of something larger. For example, the 
routines could be put at the end of a game as a reward for 
the winning player. Another idea would be to string them all 
together to provide an interesting demonstration display for 
your friends. 
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TRIANGULAR 
TRACER 


Watch and see how the triangles, drawn separately on the 
screen, build up to create a three-dimensional effect. The large 
number of random elements in the program ensure the effect 
is different every time you run the program. 


1@ REM¥X#**£* TRIANGULAR TRACERKXKXX 
xx 
2@ PRINT! PRINT: PRINT 
Z@ PRINT “WATCH THE TRIANGLES CREATE 
EYE-CATCHING PATTERNS, TO CLEAR THE 
SCREEN. PRESS THE SFACE BAR." 
40 PRINT: PRINT: PRINT 
S@ PRINT TAB(20);"FRESS ANY KEY" 
6@ WHILE INKEY$="":WEND 
@® MODE 2 
g@ CLS 
90 INK 1,26 
19@ INK @,@ 
11@ BORDER @ 
12@ L=INT(RNDK&S4@) 
17@ M=INTCRNDK4@@) 
14@ N=INTC(RND*é64e@) 
15@ O=INT(RND*4a@) 
16@ P=INT(RNDK64) 
179 Q=INT(RNDK40a0) 
18@ A=INT(RNDK7) +1 
19@ B=INT(RND*7) +41 
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C=INT CRND&7) +14 
D=INT CRNDx7>4+1 
2 E=INTCRNDK7) +1 
F=INT CRND&7) +1 
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REMEXKXKLODPXEXEKX 


TF L+A34629 
TE M+B>299 
TF N+C0>629 
IF Q+D2299 
IF P+E+629 


TF Q4+F 3299 


F INKEY$=" 
L=L+A:M=M+B 
N=N+C: 0=0+D 
P=P+E: Q=Q+F 
GOTO 2460 


8@:NEXT X 
2 THEN 


OR 


OR ! 
OR ! 


Q4+F<2 


THEN 
THEN 
THEN 
THEN 


THEN § 


THEN €LS 


REM*X** KX KDRAWK KE KEKE 


PLOT L.M,Z 
DRAWR N-L.O 
DRAWR P-N.O 
DRAWR L-F.M 
RETURN 


—-M 
-0 
-Q 
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WINDOW IN/OUT 


Instead of using the graphics commands to create an effect, 
here the WINDOW command has been used. The computer 
has been switched into mode 2 (80 characters per line) and 
the window starts from the middle of the screen and stretches 
out to eventually cover the whole screen. 

By fiddling around with the starting variables for the window, 
the pattern varies as the window draws in and out. 


1@ REM¥XXEXWINDOW IN/QUTHXEK 
20 MODE 2 

ZO X=40:Y=12 

40 B=e 

5Q® FAPER #1.1 

46@ FOR A=t TO 40 

7® IF A/Z=INTCA/3) AND A>S THEN B=B+ 


8@ IF X-A=@ THEN X=X+t1 
9@ WINDOW #1,X—-A,X+A, Y-B, Y+B 
100 CLS #1 

11 SQUND 1,45@-Ar1e.ie 

12@ NEXT A 

12@ FOR T=1 TO 15@@:NEXT T 

14@ PAPER 1:CLS 

15@ PAPER #1,9 

16@ FOR A=4@ TO 1 STEP -1 

17@ IF A/Z=INT(A/2) THEN B=B-? 
198@ IF A/2=INT(A/2) THEN J=J+1i:IF J= 
2 THEN J=@ 

19@ WINDOW #1. X-A,X+A, Y-B, Y+B 
20 PAPER #1,J 


Dynamic Games - Amstrad 
Si@ CLS #1 
228 SOUND 
Boe NEXT & 
240 FOR T=1 TO Loee<:MexT 7 


25@ GOTO so 


pas 
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LASER FAN 


This is a short and simple program producing a very eye- 
catching display. Lines radiate out from the centre of the 
screen giving the effect named in the title. 


1@ REMAX*kxXKkLASER FANKXXXKx 
20 INK 2,26. 

20 PAPER = 

40 FEN 1 

5@ SPEED INK 46@,6@ 

6@ CLS 

7@ FLOT 22e, 20e 

8@ SOUND 1,1@0,5,2 

90 DRAW RNDK464@,RNDK40@ 
1@@ FOR T=1 TO 2@@:NEXT T 
11@ SOUND 1,2750.5,2 

12@ GOTO 7e 
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LUNATIC 
PATCHWORKS 


The title sums up the effect of this program. The program 
was a result of experimentation with the joystick drawing 
patterns on the screen. | didn’t want to write a straight artist 
program, as these are far too common already. By fiddling 
around, | found that the effect of this program could be 
created. 

Experiment yourself, first with the game as it is, and then 
try altering some of the variables to create your own special 
effects. 


12] REMEKKKEKEKA KKK KEKE KKK KK KK KEK 

2 REMKXXXXKXLUNATIC PATCHWORK SX XXKEX 

20 REMAXXKAXKXIOYSTICK CONTROL KXKXKKK 

4@ REMAX**k*XSFPACERAR/FIRE BUTTONKKKXx 

s@ SEM**K*XCHANGE FORE/BACK COLOURS **x 

6@ REPO OOOO KK KKK AK 

7@ GOSUB 218 

Go INK 1,.F 

°0 INK ©@,J 

19@ PLOT X,Y 

11@ IF INKEY#=" " THEN J=J41:IF J=16 
THEN J=@ 

129 IF JOY(@)=2 AND Y>1@ THEN Y=Y-2: 

Y¥=-1 

12@ IF JOY(@)=1 AND Y<39@ THEN Y=¥+2 
2¥Y=+1 

14@ IF JOMY(@)=4 AND X>1@ THEN X=X-2: 

XX=-1 


187 


Dynamic Games - Amstrad 


188 


TF JOY (@>}=2 AND X<S2z@ THEN 


JOY (@)=16 THEN FoR+1 
FP=145 THEN Foe 
X=Xt+XXsY=VY+yY 

GOTO 8e 

END 
REMKX*#INITIALISATION&*S 
MODE @ 

FAPER 1 

LS 

F=A 

J=1 

X=4003 Y=200 

RETURN 


X=X+2 
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HUNDREDS AND 
THOUSANDS 


Hundreds and thousands of tiny pixels are lit up on the 
screen in a pattern. Try it and see. 


10 REMEKXKXKXKEKE KAKA KARR KKKEKKKKK 
20 REM*X*kHUNDREDS AND THOUSANDS *xx 
20 REMKKEKKKKKKKEKKKKKAKEKEKAKAKAKEK 
4@ BORDER 1 

SQ@ INK @.6 

&@ MODE @ 

7@ CLS 

8@ RANDOMIZE TIME 

9@ C=640 

1a@ D=4eae 

11@ A=C*RND 

12@ B=DkRND 

12@ PLOT A,B, INT(RNDK14) 

14@ PLOT A,D-B, INT (RND#14) 

15@ FLOT C-A,B, INT (RND*14) 

16@ FLOT C-A,D-B, INT (RND¥14) 

17@ GOTO 114 
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SUNBURST 


Again, this program is the result of experimentation. | was 
working on some circle effects when the idea of this program 
came to mind. | think that you will agree that the effect 
produced, considering the length of the program, is startling. 


10 
20 
30 


90 


REMKXXXXSUNBURST &X xxx 

CLS 

FOR A=1 TO 180 

PLOT 320, 2600 

DRAW 320+190kCOS (A), 200+19OXKSIN(A 


NEXT A 

FOR A=1 TO 260 

IF A/2=INT(A/2) THEN P=1 ELSE P=0 
PLOT 320,200 


199 DRAW 326+156x*COS (A) , 2004+15@xSIN ( 


A), 


Pp 


11@ NEXT A 
12 SOUND 1,190,100 


190 


Dynamic Games - Amstrad 


TRAVELLING 
TRIANGLES 


In Jeremy Ruston’s program, a triangle moves around the 
screen moving through its three planes. This creates a superb 
effect, particularly when the triangle spins on its axes. 


1@ REMOOUOOKTRAVELLING TRIANGLES#X KKK 
2 REMOOOOKC. RUSTON aOOOOK 
2@ MODE 2 

4@ CLS 

SQ INK 1,26 

be INE ae 

7@ BORDER 2 

2@ L=INT(RND*44@) 

9@ M=INT (RND*4@e) 

16 N=INT(RNDK64@) 
119 Q=INTCRNDK4@e) 
12@ P=INT(RNDKE4@) 
120 O=INT(RNDK4@@) 
14@ A=INT(RND*7) +1 
150 B=INT(RND*7) +1 
14 C=INT(RNDK7? +1 
17@ D=INT(RNDK7) +1 
12 E=INT(RNDK7) +1 
199 F=INT(RNDK7) +1 
200 PREMIO OOP OOO 
21@ Z=1 

22 GOSUER =5@ 
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2E@ FOR X=1 TO B@:NEXT X 

249 TF L+Q>679 OR L+A<2 THEN 
250 IF M+Es2=99 OR M+R<2 THEN 
269 IF N+C3629 OR N+O<2 THEN 
278 TE O+D2=99 OR O+D<2 THEN 
280 IF P+E 3629 OR PHES2 THEN 
29 IF Q+F>2Z99 OR Q+F<2 THEN 
T@OQ 7=8:GNSUE 7I5e@ 

Z1@ L=L+ArM=M+o 

ZBO@ N=N+C:0=04D 

FEO PSP+E: O=04F 

74 GOTO Bee 

TEGO REMKEKEKEKDR AWAKE KKKKK 
Z5@ FLOT LLM,2Z 

T70 DRAWR N-L,O-M 

720 DRAWER F-N,O-0 

Z9@ DRAWR L-F.M-O 


40M RETURN 
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SOUNDS 
FANTASTIC 


One of the best features of the Amstrad is its sound 
capabilities. With the ability to mix sound from three channels, 
together with white noise, the effects that can be achieved 
are marvellous. 

In this chapter, | have looked at the two sices of computer 
sound, namely music and sound effects. You will find 
programs dealing with each. 

Finishing this chapter is a fast-moving action-packed game 
based around collecting musical notes. It incorporates many 
of the effects found in the chapter. 
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SYNTHER 464 


Here is your chance to become a budding pop star with 


your own synthesiser for the Amstrad. 


This program utilises the sound channels to create a 
phasing in and out effect. The top row of the keyboard, 
including the CLEAR and DEL keys, can be used with the 
ESC key acting as a push button pause. One tap for a pause; 
another tap to release the pause and to continue playing. 

Apart from the realistic synthesiser sound produced by the 
program, the screen displays a keyboard drawn from lines 
250 onwards. (By the way, Roland is a famous maker of 


synthesisers, hence line 330.) 


16 
29 
30 
40 
5@ 
6@ 
7@ 
Bo 
90 


REMKKXKKKKEKKKKKRKKKKKKEKKKEKK 
REM* 4% 44 SYNTHER— 4.648 30 OO OX 
REMXEXKKKK KK KKK KKK KKKEKKKS 
GOSUBR 186 

T=9 

KEY DEF 79,1.17 

GOSUR 250 

AS=INKEY$ 

IF AS="" THEN GOTO 14@ 


19@ IF A$S="0" THEN T=M(10):GOTO 16@ 
11@ IF A$="—" THEN T=M(11):GOTO 160 
120 IF AS="*" THEN T=M(12):GOTO 160 
12@ IF AS=CHRS(16) THEN T=M(12):G60TO 
16 

14@ IF AS=CHRS(17) THEN T=M(14):GOTO 
16@ 

15@ T=M(VAL(AS)) 

16@ SOUND 1.7.1,7.1:SOUND 2,1-2,1.7, 

1:SOUND 2,74+2.1.7,1 
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172 
18@ 
196 
=O 
219 
2208 


250 
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GOTO ge 
REMK*X# INI TIALISATION&X&% 

DIM M(14) 

FOR T=1 TO 14 

READ M(T) 

NEXT T 

DATA 568,504, 478, 426, 279, 258, 219 


7 284, 252, 239, 213,1990,179,159 


240 
250 
260 
27@ 
280 
290 
200 
21a 
320 
Zz 
340 
250 
%6O 
270 
280 
290 
40a 
419 
420 
430 
440 
450 
440 


RETURN 
REM*Y £4 4X XSCREENZ EX KK KK 
CLG 

INK @,24 

INK 1,9 

cLs 

FLOT @, 250 

DRAW 640, 250 
LOCATE 15.14 
PRINT “Roland Vv." 
PLOT @,15¢@ 

DRAW 640,150 

FOR T=1 TO 16 
PLOT Tx4@,150 
DRAW TX40.0 

NEXT T 

FOR T=1 TO 26 
PLOT 46+T,15@ 
DRAW 66+T,5@ 
NEXT T 

FOR T=1 TO 26 
PLOT 106+T, 150 
DRAW 106+T, 50 
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479 


NEXT T 

FOR T=1 TO 
PLOT 144+T, 
DRAW 144+T, 
NEXT T 

FOR T=1 TO 
PLOT Z@6+T, 


DRAW 2@6+T,5 


NEXT T 
FOR T=1 TO 
PLOT 266+T, 
DRAW 264+T, 
NEXT T 

FOR T=1 TO 
PLOT 426+T, 
DRAW 426+T, 
NEXT T 

FOR T=1 TO 
PLOT 4644T, 
DRAW 466+T, 
NEXT T 

FOR T=1 TO 
PLOT S@4+T, 
DRAW S@4+T, 
NEXT T 

BORDER 1,2 
RETURN 


26 
158 


kor] 


26 
150 


26 
1506 
3® 
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STAR THEME 


Remember the film? Remember the music? Well here, your 
Amstrad creates a simple space scene and then plays you 
its rendition of the main Star Theme. 


MODE 2 

BORDER @ 

INK 1,26:INK @,@ 

FOR T=1 TO 180 

A=INT (RNDX64@) : B=INT (CRNDK4O0) 

PLOT A.B. 1 

IF RND?@.95 THEN PLOT A-1,8,1:°LQ0T 


11@ FOR T=1 TO 9@ 


PLOT 48@,2008,@ 

PLOT 480+6%CNS (T) ,2GO4+5KSIN(T),1 
NEXT T 

NEXT G 


16@ DIM M(16),D(14) 
17®@ FOR H=1 TO 2 
18@ FOR T=1 TO 16 


208 


S 


> 


Noh WN oh 
tA fj oe 
S 


f 
S 


READ M(T),D(T) 

SOUND 1,M(T),D(T),12 
NEXT T 

SOUND 1,@,6@ 

RESTORE 

NEXT H 
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250 DATA 478,50, 219,50, 258, 12,279,1%, 
426, 13, 239, 69. 219, 60, 258, 12, 279,135,4 
26,12 

26® DATA 239, 6@, 319, 60, 358, 15,279.15 
+258, 15, 426,70 
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ZAP/ 
ENERGISER 


| often find when experimenting for a specific sound that 
| come up with a different sound altogether. When this 
happens, don’t discard the other sound, even if that is not 
what you want at the time. It may be useful some other time. 

ENERGISER is a development from the ZAP sound, 
created by lengthening the envelope and altering the tone 
through a FOR/NEXT loop. 


1® 
20 
20 
4a 


REMEKKKZAPKEKX 
ENV 6,15,-1,1 
ENT 1,2@,10,1 
SOUND 1,1@0,25,.7,1,1 


REM* kX ENERGI SERS &X KX 
FOR T=250@ TQ 1 STEP-10 
ENV 5,100,-1.1@ 

SOUND 1.17,1/5.7.131 
NEXT T 
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CHOPPER/ 
RUSTLE, 
RUSTLE 


Here, as with ZAP and ENERGISER, one sound has been 
developed from the other. CHOPPER recreates the sound of 
the helicopter’s blades and may be useful in an arcade game. 


1a 
20 
aia) 
40 


10 
a) 
40 
20 
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REMX£*x*XxKCHOPFER SOUNDKSX% kx 
ENV 1,20,.4.2 

SOUND 1,200,1@0,1,1,1,5 

GOTO 2e 


REME&*kXRUSTLE, RUSTLEX KX KX 
ENT 1,1@.-4,20 

ENV 1,16,24,2 

SOUND 1,150,1@0,1,1,1,5 
GOTO 2a 
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MUSIC 
COMPOSER 


This program allows you to enter a musical composition, 
see it appear on a musical stave and then have it replayed 
at your own desired volume (between 1 and 15) and your own 
desired tempo. 

Just enter your notes between C and C (one octave) without 
sharps or flats. 


1@ REM OOOO OOOO EK KKK 
20 REM*XXX**xkMUSIC COMPOSERKKX*KXk 
ZO REM COO Ok 
40 MODE @ 

5 CLS 

6@ PRINT " MUSIC COMPOSER" 

70 INK @,26 

8@ INK 1,9 

9@ PEN 1 

19@ DIM M(42) 

11@ X=3:P=-6:Y=12 

12@ FOR T=1 TO 5 

12@ LOCATE 1, (2xT) 

PADS PRIN ooo chy ec tt sae 
15@ NEXT T 

16@ FOR T=7 TO 11 

17@ LOCATE 1, (2*T) 

18@ PRINT “_ te 
19@ NEXT T 

2@@ N=@ 
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21@ LOCATE 1,24 
229 N=N+1 
22@ INPUT “ENTER NOTE "sA& 


242 IF At="*kC" THEN GOTO 280 


2u8@ IF AS="—-" THEN GOTQ 284 

26@ IF At=""" THEN GOTO 226 

270 IF ASC(AS)>71 OR ASC(AS)<64 THEN 
GOTO 219 

280 IF A¢="4" THEN GOTN 446@ 

29@ IF AS="—-" THEN C=O: Y=25 


20@ IF AS="C" THEN C=1:Y=16 
210 IF AS="D" THEN C=2:Y=15 
320 IF AS="E" THEN C=2 1 
320 IF AS="F" THEN C=4 1 
240 IF AS="G" THEN C=5: Y=12 
250 IF AS="4" THEN 6 11 
26@ IF AS="R" THEN 7 al 
27@ IF AS="*C" THEN C=8: Y=9 

38@ MCN) =C 

39@ SOUND 1, 200-(2@xC) 

4@@ X=X+1:I1IF X>2@ THEN X=1:P=P+12 
41 LOCATE X,Y+P 

429 IF Y=25 THEN GOTN 448 

420 PRINT CHR (2346); 

440 GOTO 219 

4S5@ REMKXKXXPLAY COMPOSITION 
46 LOCATE 1,22:PRINT “ 


47@ LOCATE 4,22: INPUT "VOLUME":¥V 
4B8@ IF V>i5 OR V<1i THEN GOTO 460 
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LOCATE 4,22: INPUT "TEMPO (1-20)" 


IF D>2@ OR D<1i THEN GOTO 49a 
LOCATE 2,22 

INK 3,26, 

PEN Z 

PRINT “" MUSIC PLAYING "s 
REM*XXxPLAY NOTESK£% 

FOR T=1 TON 
M(T)=21@-(M(T) *20) 

SOUND 1.M(T),D%*5,V 

NEXT T 

PEN 1 

ON BREAK GOSURB 620 

GOTO 410 

RUN 
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MUSIC MAZE 


You will find this game a lot of fun and quite a challenge too. 

You must guide your character around the maze using the 
Q and Z keys for up and down screen movement and the | 
and P keys for right and left. If you find yourself blocked in 
a part of the maze, you can use one of your few sticks of 
dynamite (by pressing the spacebar) to blast your way out of 
trouble. Be careful where you use your dynamite, though, as 
blowing up a musical note will result in the maze being 
electrified. 

You must collect twelve notes and make your way out of the 
maze. There are two types of notes, one you must collect, the 
other you must avoid for they are electrified. | will not tell you 
which are which. You will have to find out for yourself. 


1@ REMXKXKEEEEMUSIC MAZEXKXEXKKKE 
2@ GOSUB 1400 

20 PEN 1 

4® DIM M(46),T (46) 

50 INK 1,11,@:INK @,@ 

6@ SPEED INK 40,20 

7® BORDER @ 

Bo DIM S(4@, 24) 

90 CLS 

19@ LOCATE 3,1:PRINT "MUS IC 
MAZE" 

11@ PEN = 

120 FOR Y=3 TO 23 

13@ LOCATE 1.Y 

14@ S(1,Y)=143 

15@ PRINT CHRS(S(1.,Y))35 

16@ FOR X=2 TO 40 
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172 LOCATE X.Y 

18@ IF RND>®.65 THEN S(X,Y)=207 ELSE 
S(X,Y) =32 

19@ PRINT CHRS(S(X,Y))5 
29@ NEXT X 

214 LOCATE X-1,Y 

229 S(X-1,Y)=143 

22@ PRINT CHRS(S(X-1,Y))5 

24@ NEXT Y 

208 FOR T=1 TO 17 

26@ READ M(T),T(T) 

278 NEXT T 

28@ FOR T=1 TO 26 

29@ READ M(17+T)2T(17+T) =20 

20@ NEXT T 

31@ LOCATE 1,2 

32@ FOR T=1 TO 4@ 

330 S(T.2)=143 

34@ PRINT CHRS(S(T,2))5 

35@ NEXT T 

36@ LOCATE 1,24 

37@ FOR T=1 TO 40 

3B8@ S(T, 24)=143 

39@ PRINT CHRS(S(T,24))5 
400 NEXT T 

41@ K=INT CRNDX28) +1 

42@ LOCATE K,24 

420 PRINT " "5; 

44@ S(K, 24) =32 

450 PEN 2 

46@ FOR T=1 TO 6 
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A7@ X=INT(RNDKZ6) +2: Y=INT (RNDK2@) +2 
AB@ S(X,Y) =227 

49@ LOCATE X,Y:PRINT CHRS(S(X.Y)): 
@Q S(X,Y)=23 

1@ NEXT T 

2@ FOR T=1 TO 12 

Z@ X=INT (RND&Z4) +22 Y=INT (RND£ZO) +3 
54@ S(X.Y)=226 

55@ LOCATE X.Y 

56@ PEN 1 

57@ PRINT CHRS(S(X,Y))3 

SB@ S(X,Y) =3% 

590 PEN = 

60@ NEXT T 


65@ DT=INT (TIME/20@) 

660 G=1 

67@ REMKXK*XMAIN GAME ACTIONSXXXKX 
680 G=G+1:IF G<7 THEN GOTO 720 ELSE 


69@ H=H+1 

70@ IF H=46 THEN H=@:GOTQ 720 
71@ SOUND 4,M(H),TCH)/2,6 

72@ AS=INKEYS 


73@ LOCATE A,Bz:PRINT " "s 
74@ IF AS="Q" AND S(A,B-1)<25 THEN B 
=B-1 


75@ IF AS="Z" AND S(A,B+1)2<¢35 THEN B 
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=E+1 
a 
74e 
=A-1 
778 
=At+1 
780 
790 
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:IF SC=12 AND B=24 THEN GOTO 122 


IF AS="I" AND S(A-1,B)<235 THEN A 


IF A$="P" AND S(A+1,B)<235 THEN A 
IF AS="_" AND D>@ THEN GOSUB 8708 
IF S(A,B)=33 THEN SOUND 2,420-(3 


@kSC),40,15:5 (A,B) =22: SC=SC+1 


80@ IF S(A,B)=23 THEN SOUND 1,1000,4 
@,15,5,5.5:609TO 1080 

819 LOCATE A,B 

32@ PRINT CHRS (248): 

BzQ@ TK=INT(TIME/20@) —-DT 

840 IF TK>3@@ THEN 1280 

85@ IF TK>27@ THEN INK @,11,@ 

84@ GOTO 470 

B7@ REMKXkADYNAMITE THROUGHK* xx 

880 IF S(A+1,B)=23 OR S(A-1.B)=33 OR 
S(A,B+1)=22 OR S(A,B-1)=33 THEN GOT 

O 198@ 

890 IF S(A+1,B)=23 OR S(A-1,B)=23 OR 
S(A,B+1)=23 OR S(A,B-1)=23 THEN GOT 
0 1086 

Fae 


719 
9208 
928 
9490 
95e@ 
768 


S(A+1,.B)=32 
S(A-1,B) =32 
S(A,B+1)=32 
S (A, B-1) =32 


LOCATE At+1,BsFPRINT " "5 
LOCATE A-1,B:sPRINT " "5 
LOCATE A,Bt1:sPRINT " "5 
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97@ LOCATE A,B-1:PRINT " "5 
93@ PEN 3 
296 DT=DT-1@ 


19@0 


IF B=22 THEN S(A,B+1)=142:LOCAT 


E A.B+1: PRINT CHRS(143)3 


1919 


A-1, 


1820 


A, B- 


1930 


IF A=2 THEN S(A-1,B)=143:LOCATE 
B:PRINT CHR#(143): 
IF B=2 THEN S(A,B-1)=143:LOCATE 
1:PRINT CHRS(143): 
IF A=38 THEN S(A+1,B)=142:LOCAT 


E A+1,B:PRINT CHRS (142) 5 


1940 
19508 
1060 
1974 
108@ 
19908 
112@ 
1110 
1120 
1130 
1146 
1150 
1160 
1178 
1180 
1196 
1200 
1210 
1220 
1230 


PEN 2 
SOUND 1,800, 4@ 

D=D-1 

RETURN 

REMAKE KXKELOSEKHKE KKK 
FOR T=1 TO 8 

SOUND 1,120 

INK @,9 

SOUND 1,250 

INK 0,0 

NEXT T 

CLS 

PEN = 

LOCATE 10,1@ 

PRINT “YOU ARE ELECTROCUTED! !" 
SOUND 1,4@00,14@,15 
SPEED KEY 10,1 

END 

REMI RR AWIN GREE KEK 
SPEED KEY 10,1 


Dynamic Games - Amstrad 


124@ FOR T=3@@ TO 6@ STEP -5 

125@ SOUND 1,1, 2@:SOUND 2,7, 20 

126 NEXT T 

1270 FOR T=1 TO 28:PRINT:NEXT T 

1286 LOCATE 15,10:PRINT “WELL DONE" 
129@ LOCATE 12,14:PRINT “TIME: "3TK:" 
SECONDS" 

12@@ FOR T=1 TO 2600:NEXT T 

131@ FOR T=1 TO 24 

1232@ SOUND 1,M(T+17),T(T+17),12 

122@ NEXT T 

124@ GOTO 13200 

125 END 

1260 REM*X*X*kXMUSIC DATAKEKXX 

1374 DATA 478,50, 219,5@, 258.13,279.1 
%, 426,13, 239, 60.219, 60, 358, 1%3.279.13 
- 426,13 

128 DATA 229, 60,219, 60, 258.15,279,1 
5.358, 15,426, 78,8, 40 

159@ DATA 60.52.47, 45. 60,.45.47.45, 
40,53,0,53, 47,45, 26, 40, 48,45, 45,47,5 
347,420,828 

14Q0 REMEXXXTITLE KK EX 

1410 MODE @ 

142@ FOR T=1 TO 14 

143@ PEN T 

1446 LOCATE 5.10 

145@ PRINT "MUSIC MAZE" 

146@ SOUND 2, INT (RND*25@) +5@ 

1476 FOR G=1 TN 1@@:NEXT G 

1480 A=INT (RND*18) +1: B=INT (RND*22) +1 


209 


Dynamic Games - Amstrad 


210 


1490 IF B=1@ THEN GOTO 148@ 

15@6 LOCATE A,B:sPRINT CHRS (INT (RND&2 
+226) 5 

1519 NEXT T 

1526 LOCATE 1.24:PRINT "Press a key 
to Start" 

153@ WHILE INKEY$="":WEND 

1540 MODE 1 

155@ RETURN 


Your Amstrad is set to explode! With this exciting collection of 
games, you and your computer are set for hours and hours of 
entertainment in the coming months. 


Fifty fast-moving, professionally-created games for the Amstrad 
are waiting for you in this book. Each game has been created 
specifically for the Amstrad, and makes the most of the 
computer’s dramatic colour and sound possibilities. 


No matter what kind of games you like playing, you'll find them 
in this book: 


ARCADE ACTION—with games like Attack of the Mutoids, City 
Sacrifice and Danger UXB 


GAMBLING GAMES-—such as One-Armed Bandit and Pontoon 
BOARD GAMES — including Chess, Reversi/Othello and 


Gomoku 


ADVENTURES — like City of Atlantis 


Come on in. The games, the action and the excitement are just 
waiting for you and your Amstrad! 


/ ; another great book from 
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